Question

найдите полграмму площади и пириметра

Answer 1

var A,b,s,p:real;
begin
read (a b);
writeln ('s=', a*b);
writeln ('p=', 2*a+2*b);
end.
на примере прямоугольника