program laba1_1;

var
   A, B: Longint;
   IsValid: Boolean;

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