laba.1.1.(Delphi)

program Laboratorka_1_1;

uses System.SysUtils;
const
  MIN_VALUE = 1;
  MAX_VALUE = 100;
var
  Rad,Len: Byte;
  IsCorrect: Boolean;

begin
  Writeln ('Данная программа проверяет , входит ли круг с заданным радиусом в квадрат с заданной
                стороной.');
  Writeln ('Диапазон значений для ввода значений радиуса: 1 ... 100');
  Writeln ('Диапазон значений для ввода значений стороны квадрата: 1 ... 100');

  repeat

    IsCorrect := true;
    Write('Введите значение радиуса круга: ');

    try
      Readln(Rad);
    except
      Writeln('Проверьте корректность ввода данных!');
      IsCorrect := false;
    end;

    if (IsCorrect) and((Rad < MIN_VALUE ) or (Rad > MAX_VALUE)) then
    begin
      Writeln ('Введите значение от 1 до 100!');
      IsCorrect := false;
    end;

  until IsCorrect ;

  repeat

    IsCorrect := true;
    Write('Введите значение длины стороны квадрата: ');

    try
      Readln(Len);
    except
      Writeln('Проверьте корректность ввода данных!');
      IsCorrect := false;
    end;

    if (IsCorrect) and((Len < MIN_VALUE ) or (Len > MAX_VALUE)) then
    begin
      Writeln ('Введите значение от 1 до 100!');
      IsCorrect := false;
    end;

  until IsCorrect ;

  If(Len >= 2 * Rad) then
    Writeln('Круг пройдет в квадрат.')
  else
    Writeln('Круг не пройдет в квадрат.');

end.