serg1101 № 2
var
a,b,s,p:real;
begin
writeln ('Введите сторону А');
readln(a);
writeln ('Введите сторону B');
readln(b);
p:= (a*b)*2;
s:= (a*b);
writeln ('Периметр прямоугольника равен',p);
writeln ('Площадь прямоугольника равна',s);
end.
-------
№ 3
var
a,b,s,p: real;
begin
writeln ('Введите сторону А');
readln(a);
b:=a+2;
p:= (a*b)*2;
s:= (a*b);
writeln ('Периметр прямоугольника равен',p);
writeln ('Площадь прямоугольника равна',s);
end.