Последовательность Фибоначчи

Как правило, два первых члена последовательности Фибоначчи принимают за 1 и 1, но в приведенной ниже программе предлагается ввести произвольные начальные два числа. Только будьте осторожны, поскольку члены последовательности быстро возрастают.

program Fibonachi;
var
  A: array[1..100] of integer;
  N, i: integer;
begin
  write('Количество членов последовательности: N = ');
  readln(N);
  write('Введите два первых члена последовательности: ');
  readln(a[1], a[2]);
  writeln('Первые ', N, ' членов:');
  write(a[1],' ',a[2]);
  for i := 3 to N do
  begin
    a[i] := a[i - 1] + a[i - 2];
    write(' ', a[i])
  end;
  readln
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647