Здравствуйте, shevru02!
Понятия не имею что такое цилиндрическая подкова и как она выглядит, но думаю что программа будет такой.
[code lang=pascal]function V(a,b,n,r,f:real):real;
begin
V:=n/(3*b)*a*(3*r*r-a*a)+3*r*r*(b-r)*f*pi/180;
end;
var a,b,n,r,f1,f2,h,f:real;
begin
repeat
writeln('Введите параметры 0<a<r<b');
readln(a,r,b);
until(a>0)and(r>a)and(b>r);
repeat
write('Введите параметр n>0 n=');
readln(n);
until n>0;
repeat
writeln('Введите начальный и конечный углы в градусах 0>fn>fk<360');
readln(f1,f2);
until(f1>0)and(f2>f1)and(f2<360);
repeat
write('Введите шаг в градусах 0<h<',f2-f1,' h=');
readln(h);
until (h>0)and(h<f2-f1);
f:=f1;
while f<f2+h/2 do
begin
writeln('f=',f:6:2,' V=',V(a,b,n,r,f):8:3);
f:=f+h;
end;
end.[/code]