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

Pas.0009. Напишите программу, которая вычисляет и выводит  $N$ первых чисел Фибоначчи.

Решение.

program Fibonacci;

const
    N = 12;
  
var
    prevPrev : integer = 0;
    prev: integer = 1;
    next, i : integer;

begin
 
    write('Числа Фибоначчи: 1, ');
  
    for i:=1 to N-1 do
    begin
        next := prev + prevPrev;
        write(next, ', ');
        prevPrev := prev;
        prev := next; 
    end;
  
    write('...');
  
end.

Консоль.

Числа Фибаначчи:
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, ...