program laba1_1;
uses
   System.SysUtils;
var
   ValueA, ValueB: Longint;
   IsValid: Boolean;
   const MIN_SIZE = 0;
   const MAX_SIZE = 1000001;
begin
   IsValid := False;
   ValueA := 0;
   ValueB := 0;
   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.