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

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