Создание файла из N чисел Фибоначчи

[julia_belyakova]

Вчера неожиданно порадовало красивое решение без всякого анализа N:

a := 1;
b := 1;
for var i := 1 to N do
begin
write(f, a);
c := a + b;
a := b;
b := c;
end;