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

var f1,f2,f,i:integer;beginf1:=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