Вывести числа Фибоначчи до n членов и записать в файл

[Richik123]

Вывести числа Фибоначчи до n членов и записать в файл

[Hacker19_90]

clrscr;
assign (f, 'fib.txt');
Rewrite (f);
n1 := 0;
WriteLn (n1)
WriteLn (f, n1);
n2 := 1;
WriteLn (n2);
WriteLn (f, n2);
for i := 3 to n do
begin
  n2 := n2 + n1;
  n1 := n2 - n1;
  WriteLn (n2);
  WriteLn (f, n2);
end;
close (f);
ReadKey;

вот так примерно