СРОЧНО!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Получить и записать в массив первые 10 чисел Фибоначчи (первые два числа равны 1, а каждое последующее- сумме двух предыдущих).

const n=10;varf:array[1..n] of integer;i:integer;beginf[1]:=1;f[2]:=1;for i:=3 to n do f[i]:=f[i-2]+f[i-1];for i:=1 to n do write(f[i]:3);writeln;end.