Дан одномерный массив. удалить из массива все числа фибоначчи. язык c++ или паскаль

// pascalabc.net 3.0, сборка 1088 const   nn=100; var   a: array[1..nn] of integer;   i,n,k,max,f2,f1,fib: integer; begin   write('введите количество элементов в массиве (1-100): ');   read(n);   randomize;   writeln('*** сформированный массив ***');   max: =0;   for i: =1 to n do begin       a[i]: =random(100)+1;       write(a[i],' ');       if max< a[i] then max: =a[i]       end;   writeln;   // заменяем элементы, равные числам фибоначчи, на -1   k: =0;   f1: =1; fib: =1;   while fib< =max do begin       for i: =1 to n do           if a[i]=fib then begin a[i]: =-1; inc(k) end;       f2: =f1; f1: =fib; fib: =f1+f2       end;   if k> 0 then begin       // удаляем элементы, равные -1       writeln('*** результирующий массив ***');       for i: =n downto 1 do begin           if a[i]=-1 then begin               if i< > n then                   for k: =i to n-1 do a[k]: =a[k+1];               dec(n);               end;           end;       for i: =1 to n do write(a[i],' ');       writeln       end   else writeln('числа фибоначчи не обнаружены') end.       тестовое решение: введите количество элементов в массиве (1-100): 20 *** сформированный массив *** 21 51 15 38 52 35 42 51 16 53 96 3 53 82 87 12 55 37 93 19 *** результирующий массив *** 51 15 38 52 35 42 51 16 53 96 53 82 87 12 37 93 19

1)     при вводе n = 10 будет выведено 2, хотя на самом деле должно быть 4 (1, 2, 5, 10). 2)   при n = 4 или n  =  9 будет выведен правильный ответ при   n = 4,   k = 3, при n = 9,   к = 3 3)   ошибка в строке   k : = 0;   должно быть k: =2;   - для делителей 1 и nошибка в строке  k : = k + 3;   должно быть   k: =k+1,   если число n - полный квадрат, то добавляется    делитель кор.квадр(n).