Напишите программу, вычисляющую и выводящкю 10 первых членов последовательности Фибоначчи

Var f1,f2,f,i:integer;
begin
f1:=1; f2:=1;
write(f1, ,f2, );
for i:=3 to 10 do
 begin
 f:=f1+f2;
 write(f, );
 f1:=f2;
 f2:=f;
 end;
writeln;
end.

Результат:
1 1 2 3 5 8 13 21 34 55