Написать программу с использованием оператора цикла(постусловия). резервуар имеет форму сферы; его внутренний радиус равен r см найдите объем(v) жидкости в зависимости от от уровня h воды от низшей точки его дна. величина h изменяется от 0 до 2 с шагом 0,1. объем v шарового сегмента (заполненого жидкостью) вычисляется по формуле πh²(r-h/3).
pi=3.14;
var
h,V,R: real;
begin
writeln('Введите радиус');
Readln(R);
h:=0;
repeat
V:=pi*sqr(h)*(R-h/3);
writeln('V(',h,')=', V);
h:=h+0.1;
until h>2.1;
end.