Найти площадь осевого сечения прямого кругового конуса с радиусом основания R и образующей L. сделать в Паскале посчитайте ​

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.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!