По заданной стороне квадрата и радиусу круга выяснить, поместится ли:а) круг в квадрат?б) квадрат в круг?Результаты вывести на экран — Pascal(Паскаль)

uses crt,graph;
var xc,yc,a,r:integer;
    f,g:boolean;
    s1,s2:string;
begin
clrscr;
repeat
write('Vvedite storonu kvadrata 10-400 a=');
readln(a);
until (a>=10)and(a<=400);
repeat
write('Vvedite radius kruga     10-200 r=');
readln(r);
until r in [10..200];
f:=2*r<=a;
g:=r>=trunc(a*sqrt(2));
if f then s1:='Krug pomestitsa v kvadrat'
else s1:='Krug ne pomestitsa v kvadrat';
if g then s2:='Kvadrat pomestitsa v krug'
else s2:='Kvadrat ne pomestitsa v krug';
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
setcolor(12);
Circle(xc,yc,r);
outtextXY(getmaxX div 2-100,getmaxY-20,s1);
setcolor(13);
Rectangle(xc-a div 2,yc-a div 2,xc+a div 2,yc+a div 2);
outtextXY(getmaxX div 2-100,getmaxY-40,s2);
readln
end.