Дано целое число N (>2). Сформировать и вывести целочисленный массив размера N, содержащий N первых элементов последовательности чисел Фибоначчи FK: F1 = 1, F2 = 1, FK = FK−2 + FK−1, K = 3, 4, …. — Pascal(Паскаль)

program arrf;
var arr: array[1..10] of integer;
N, i: integer;
begin
    write('Введите N: ');
    readln(N); arr[1] := 1;
    arr[2] := 1;
    for i := 3 to N do 
        arr[i] := arr[i - 1] + arr[i - 2];
    for i := 1 to N do
        write(arr[i], ' ')
end.