помогите пожалуйста))0) даны радиус круга и площадь квадрата. определить поместится ли круг в квадрате

Вопрос школьника по предмету Информатика

помогите пожалуйста))0) даны радиус круга и площадь квадрата. определить поместится ли круг в квадрате

Ответ учителя по предмету Информатика

var  r, s, a: real;

begin 

readln(s, r); 

a := sqrt(s); 

if 2 * r > a then writeln(‘НЕПОМЕСТИТСЯ’)

else writeln(‘ПОМЕСТИТЬСЯ’)

end.

лучший пж