Составьте программу я которая вычисляет: массу жидкости в каждом сосуде 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.