Массивы, Инициализация значений элементов одномерного массива Опции

[SUPERMEN]

Необходимо написать программу инициализации элементов одномерного массива, таким образом что бы значение элемента было равно сумме двух предыдущих значения первых двух вводятся с клавиатуры.

[volvo]

Числа Фибоначчи?

const
  n = 20;
var
  arr: array[1 .. n] of longint;
  i: integer;

begin
  write('arr[1] = '); readln(arr[1]);
  write('arr[2] = '); readln(arr[2]);
  for i := 3 to n do arr[i] := arr[i - 2] + arr[i - 1];

  for i := 1 to n do write(arr[i]:6);
  writeln;
end.