Составьте программу, которая вычисляет: a) давление столба жидкости на дно сосудов p= dgh(g=9,8 м/c2);

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