Найти объем жидкости, если известны длина цистерны и радиус основания

var h,l,r:real;
    v:real;
begin 
 writeln('h,l,r=?');
 readln(h,l,r);
 v:=(1/2)*sqr(r)*(2*arccos((r-h)/r)-sin(2*arccos((r-h)/r)))*l;
 writeln(v:0:2)
end.

uses crt;
var l,r,h,cs,a,os,p,st,sk,sg,v:real;
begin
repeat
writeln('Введите длину цистерны L>0, радиус основания R>0 и высоту жидкости 0<=h<=2R');
readln(l,r,h);
until(l>0)and(r>0)and(h>=0)and(h<=2*r);
if h=0 then v:=0
else if h=2*r then v:=pi*r*r*l
else
 begin
  cs:=abs((r-h)/r); //косинус половины угла сектора
  a:=2*arctan(sqrt(1-cs*cs)/cs); //угол сектора
  os:=2*sqrt(r*r-sqr(r-h)); //основание треугольника
  p:=(r+r+os)/2;//полупериметр
  st:=sqrt(p*(p-r)*(p-r)*(p-os));//площадь треугольника
  sk:=a*r*r/2;//площадь сектора
  sg:=sk-st;//площадь сегмента
  v:=sg*l;
  if h>r then v:=pi*r*r*l-v;
 end;
write('V=',v:0:2)
end.