program laba1_2;
uses
   System.SysUtils;
var
   FibNow, FibPrev: Longint;
   N, i: Integer;
   IsValid: Boolean;
   const MIN_SIZE = 0;
   const MAX_SIZE = 47;
begin
   IsValid := False;
   N := 0;
   Writeln('Данная программа вычисляет N-e число Фибоначчи');
   Write('Введите N-e число Фибоначчи в диапазоне ', MIN_SIZE + 1, '..', MAX_SIZE - 1, ': ');
   repeat
      try
         Readln(N);
      except
         Writeln('Введите корректные данные');
      end;
      if (N > MIN_SIZE) and (N < MAX_SIZE) then
         IsValid:=True
      else
         Writeln('Введите число в заданном диапазоне');
   until IsValid;
   FibPrev := 1;
   FibNow := 1;
   for i := N downto 3 do
   begin
      FibNow := FibPrev + FibNow;
      FibPrev := FibNow - FibPrev;
   end;
   Writeln(N, '-e число Фибоначчи: ', FibNow);
   Writeln('Нажмите Enter для выхода из программы');
   Readln;
end.