Составьте программу я которая вычисляет: массу жидкости в каждом сосуде m = dv = dhs(s = 3.14 r во второй степени) требуемые исходные данные (радиус сосуда r, высота столбца жидкости h) вводятся в массив с клавиатуры, результат выводится на экран. язык - pascal
program Zanija;
var m,d,V,h,S,R:real;
begin
Writeln('Введите радиус (R) ');
readln(R);
Writeln('Введите высоту столбца жидкости (h) ');
readln(h);
Writeln('Введите (d) ');
readln(d);
S:= 3.14 * sqr(r);
v:= h*s;
m:=d*V;
writeln('Масса жидкости в каждом сосуде = ',m);
End.