Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d=1200кг/м3.Составьте программу, которая вычесляет давление столба жидкости на дно сосудов p=dgh(g=9,8м/с2)
program sosud;
var d,g,h,p:real;
begin
writeln('vvedite h');
readln(h);
d:=1200; g:=9.8;
p:=d*g*h;
writeln('davlenie=',p:8:2);
readln;
end.
Буду благодарна, если отметите