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

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