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

Спасибо большое.

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