program z6;
uses crt;
var x,y:integer;
begin;
clrscr;
write('vvedite ploshad kruga');
readln(x);
write('vvedite ploshad kvadrata');
readln(y);
rkr:=sqrt(x/pi);
a:=sqrt(y);
diam:=rkr+rkr;
diag:=sqrt(a*a+a*a);
if diam>=diad then writeln('kvadrat vmeshaetsya v krug')
else writeln('kvadrat ne vmeshaetsya v krug');
if diam<=a then writeln('krug vmeshaetsya v kvadrat')
else writeln('krug ne vmeshaetsya v kvadrat');
readkey;
end.