Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d=1200 кг/м3.составить программу.которая вычисляет давление стольа жидкости на дно сосудов p=dgh(g=9,8 м/с2)

Var a, b, c, d, h, i:integer;
begin
read (h);
write (1200*9.8*h);
end.
P.S. Благодарность не помешает.