var
r,l:integer;
begin
write('Введите радиус(R) и образующую(L):'); readln(r,l);
write('Площадь сечения(S): S=0,5*2*R*h: ',r*sqrt(sqr(l)-sqr(r)));
end.
Если моё решение вам, пометьте его лучшим !
