Площадь крышки бака вычисляется по формуле pd2, площадь обЪема по формуле pdh составить задачу в приложении паскаль abc

var d,p,h:real;

begin

readln(d,h);

p:=3.14;

writeln('Площадь бака ', p*d*h)

d:=d*d

writeln('Площадь крышки ', p*d);

end.