Получить и записать в массив первые 10 чисел фибоначчи (первые два числа равны 1, а каждое последующее- сумме двух предыдущих).

Const n=10;
var
f:array[1..n] of integer;i:integer;
begin
f[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.