50 .написать программу в паскале, которая высчитывает атмосферное давление. , нужно !

Var p,h: Real;
begin
writeln('Введите p,h: ');
readln(p,h);
writeln('P=p*g*h=',p*10*h);
end.