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