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

Var  r, s, a: real;
begin 
readln(s, r); 
a := sqrt(s); 
if 2 * r > a then writeln('НЕПОМЕСТИТСЯ')
else writeln('ПОМЕСТИТЬСЯ')
end.
лучший