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

uses crt;
var a,r:real;
BEGIN
     clrscr;
     writeln('storona kvasrata A=');
     readln(a);
     writeln('radius kruga R=');
     readln(r);
     if r<=a/2 then writeln('Krug pomestits9 v kvadrat!')
 else writeln('Ne pomewaets9!');
     readkey;
END.