Привет, вот твое решение!Если что не так - пиши, исправлю
Удачи
vara,b,P,S:real;beginreadln(a);readln(b);P:=2*(a+b);S:=a*b;writeln('perimetr=', P);writeln('ploshad=', S);end.
Привет, вот твое решение!Если что не так - пиши, исправлю
Удачи
var
a,b,P,S:real;
begin
readln(a);
readln(b);
P:=2*(a+b);
S:=a*b;
writeln('perimetr=', P);
writeln('ploshad=', S);
end.