9 КЛАСС ИНФОРМАТИКА ПОМОГИТЕ
Дан целочисленным массив из 20 элементов, все элементы которого положительные числа , не превосходящие 100. Напишите программу которая находит и выводит номер элемента , имеющего максимальное количество целочисленных делителей ( если таких элементов несколько, то номер любого из них).
На Паскале АБС
Заранее спасибо

const n=20;var a: Array [1..n] of integer;i,j,m,d,dm: Integer;beginfor i:=1 to n doa[i]:=random(100);writeln (a);for i:=1 to n dobegind:=0;for j:=1 to a[i] doif a[i] mod j = 0 then d:=d+1;if d>dm thenbegindm:=d;m:=iendend;writeln (m)end.