program laba1_1;

var
   A, B: Longint;
   IsValid: Boolean;

begin
   Writeln('Данная программа проверяет, пройдёт ли круг радиусом А в квадрат со стороной B');
   Write('Введите радиус круга в диапазоне 1..1000000: ');
   repeat
      try
         Readln(A);
      except
         Writeln('Введите корректные данные: ');
      end;
      if (A > 0) and (A < 1000001) then
        IsValid := True
      else
        Writeln('Введите корректные данные: ');
   until IsValid;
   IsValid := False;
   Write('Введите сторону квадрата в диапазоне 1..1000000: ');
   repeat
      try
         Readln(B);
      except
         Writeln('Введите корректные данные: ');
      end;
      if (B > 0) and (B < 1000001) then
        IsValid := True
      else
        Writeln('Введите корректные данные: ');
   until IsValid;
   if 2 * A <= B then
      Writeln('Пройдёт')
   else
      Writeln('Не пройдёт');
   Readln;
end.