Определить поместиться ли квадрат со стороной A в круг с радиусом R — Pascal(Паскаль)

uses crt;
var a,r,d:real;
BEGIN
     clrscr;
     writeln('storona kvasrata A=');
     readln(a);
     writeln('radius kruga R=');
     readln(r);
     d:=sqrt(a*a); {диагональ квадрата}
     if r>=d/2 then writeln('Kvadrat pomestits9 v kryg!') else writeln('Ne pomewaets9!');
     readkey;
END.