Program nm13;
uses crt;
var S1,S2,d,a,diag:real;
begin
writeln('vvedi ploschad kruga i ploschad kvadrata');
readln(S1);
readln(S2);
d:=2*sqrt(S1/3.14);
a:=sqrt(S2);
diag:=2*sqrt(2*a*a);
if diag>d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');
readln;
end.
