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

var
  x, y: integer;

begin
  writeln('vvedite plochad kruga, a potom kvadrata');
  readln(x);
  readln(y);
  If x > y then
    writeln('kvadrat v krug pomashaeca')
  else
    writeln('kvadrat v krug ne pomashaeca');
  writeln;
  readln;

end.