Известны длина стороны квадрата и радиус окружности.определить поместиться ли квадрат в окружность. как составить программу в паскаль?

Var a,r:real;
begin
  write ('Storona kvadrata: ');
  readln (a);
  write ('Radius: ');
  readln (r);
  if (a*sqrt(2))<=2*r then writeln ('YES') else writeln ('NO');
  readln;
end.