Заданы поверхность шарового сегмента sшарсег и поверхность конуса sкон, вместе образующие шаровый сектор. заданы радиус шара r и высота шарового сегмента n, принадлежащая шаровому сектору. вычислить поверхность шарового сектора sшар сект и его объем v. если v< 50, то вычислить отношение поверхностей шарового сегмента к поверхности конуса sшар./sкон. написать это на языке паскаль

Я в геометрии не силён, поэтому не смогу Но если ты напишешь как эту задачу решить то я смогу написать программу.

Var  r,h,s1,s2,s,v: real;
begin
write('Поверхность шарового сегмента: ');
readln(s1);
write('Поверхность конуса: ');
readln(s2);
write('Радиус шара: ');
readln(r);
write('Высота шарового сегмента: ');
readln(h);
s:=2*Pi*r*h+Pi*r*sqrt(2*r*h-sqr(h));
v:=2/3*Pi*sqr(r)*h;
writeln('Площадь шарового сектора: ',s);
writeln('Объем шарового сектора: ',v);
if v<50 then writeln('Отношение площадей: ',s1/s2)
end.