Сосуды цилиндрической формы заполнены до краев жидкостью плотностью d=1200 кг/м3. составьте программу, которая вычисляет: а) давление столба жидкости на дно сосудов p=dgh(g=9.8м/с); б) массу жидкости в каждом сосуде m=dv=dhs(s=3.14 r2

program task31101745; const  d = 1200;  g = 10; var  h, R: real; begin  Writeln('ВВЕДИТЕ ВЫСОТУ СТОЛБА ЖИДКОСТИ (h) И РАДИУС СТОЛБА (r): ');  Readln(h, R);  Writeln('ДАВЛЕНИЕ = ', d * g * h, ', МАССА ЖИДКОСТИ: ', d * h * Pi * Power(R, 2)); end.