Pascal. Задача 3-2

Вывести первые 20 чисел Фибоначчи.

Примечание: Первые два числа Фибоначчи равны 1, каждое следующее равно сумме двух предыдущих.

Решение

var
  i, f1, f2 : integer;
begin
  f1 := 1;
  writeln(f1);
  f2 := 1;
  writeln(f2);
  for i := 1 to 18 do begin 
    f2 := f1 + f2;
    writeln(f2);
    f1 := f2 - f1;
  end;
end.