Известны площади круга и квадрата. Определить:
a. Уместится ли круг в квадрате;
b. Уместится ли квадрат в круге.- Pascal(Паскаль)

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.