Заданы площади круга и квадрата. Определить, поместиться ли круг в квадрате. Круг поместиться в квадрате, если его диаметр меньше или равен стороне квадрата- Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var
s,s2:real;
begin
readln(s);
readln(s2);
 if (2*sqrt(s/pi))<=(sqrt(s2)) then writeln('Поместился')
 else
 writeln('Не поместился')
end.