program laba1_1;

var
   A, B: Longint;
   IsValid: Boolean;

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