Сформировать 15 первых чисел Фибоначчи: 1 1 2 3 5 8 13 21...,где начиная с третьего элемента числа=сумме 2 предыд PASCAL

Предыдущий
вопрос Следующий
вопрос

program Fibonacci;

var
n, a, b, c, i: integer;

begin
a := 1;
b := 1;
c := 0;

writeln('Первые 15 чисел Фибоначчи:');
writeln(a);
writeln(b);

for i := 3 to 15 do
begin
c := a + b;
writeln(c);
a := b;
b := c;
end;
end.