Вычислить площадь поверхности объем правильной пирамиды, в основании которой квадрат со стороной a и высотой h. на паскале

Var a,b,h:integer;
begin
read(a;h);
write(a^a+2*a*sqrt(a^a/4+h*h));
wrteln((h*a*a)/3);
end.