Найти площадь осевого сечения прямого кругового конуса с радиусом основания 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.

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