50 БАЛЛОВ.Написать программу в паскале, которая высчитывает атмосферное давление. ПОЖАЛУЙСТА, НУЖНО СРОЧНО!

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