Найти натуральное число в диапазоне от 1 до n с максимальной суммой делителей. (паскаль)

Первое знакомство с вирусом у меня был лет 8 назад.У меня тогда был более менее для тогдашнего времени мощный компьютер.Интернетом пользовались только для обмена файлами а для компьютерных игр приходилось покупать CD диски на котором была записан та или иная игра.Такие диски были дорогой роскошью.Ребята в основном обменивались между собой играми.Антивирусами тогда никто не пользовался.Все думали зачем он им нужен, говорили что только зря компьютер нагружают и вирусом на компе в котором не использовался интернет быть не может.Однажды когда я играл в свою любимую игру вдруг она вылетела, я подумал что это ерунда и перезапустил игру, но она вновь вылетела.Ни одна игра на пк не запускался система была забита непонятными задачами и я установил антивирус.Он нашел в моем компе внимание 82 ВИРУСА.Вылечить эти файлы не удалось и пришлось удалять вместе с сохраняниями в играх.Мой комп 13% составлял из вирусов и без переустановки windows не обошлось.Так я в первые на себе увидел компьютерных "паразитов"

Предположим, что байт 8-битовый. Тогда 12 * 8 = 96.

Var a:array[1..10] of integer;
i:integer;
begin
a[1]:=1;
a[2]:=2;
for I :=3 to 10 do
a[I]:=a[I-2]+a[I-1];
for I := 1 to 10
write (a[I],);
end.

7111216
Вроде так должно быть