laba.1.2(Delphi)

Program Laboratorka_1_2;

Uses System.SysUtils;
Const
  MIN_VALUE = 3;
  MAX_VALUE = 46;
Var
  A, B, Number, I: Integer;
  IsCorrect: Boolean;

Begin
  Writeln ('Данная программа находит запрашиваемый член ряда Фибоначчи.');
  Writeln ('Диапазон значений для ввода запрашиваемого члена ряда: ' +
            IntToStr(MIN_VALUE) + '...' + IntToStr(MAX_VALUE) + '.');

  A := 1;
  B := 1;

  Repeat

    IsCorrect := True;
    Write('Введите номер запрашиваемого члена: ');

    Try
      Readln(Number);
    Except
      Writeln('Проверьте корректность ввода данных!');
      IsCorrect := False;
    End;

    If (IsCorrect) And ((Number < MIN_VALUE) Or (Number > MAX_VALUE)) Then
    Begin
      Writeln ('Введите значение от ' + IntToStr(MIN_VALUE) + ' до ' +
                IntToStr(MAX_VALUE) + '!');
      IsCorrect := False;
    End;

  Until (IsCorrect);

  For I := 3 to Number do
  Begin
    A := A + B;
    B := A - B;
  End;

  Writeln('Запрашиваемый член ряда равен: ', A);

  Readln;
End.