Объяснение:
Program pr;
var
h,a,b,g,p,s:integer;
begin
p:=2*(a+b);
s:=a*b;
writeln('p=',p,' s=',s);
readln;
end.
