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

Question

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

Answer 1

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