Дан массив из n элементов. Найти сумму элементов которые крытны своим индексам.

program HelloWorld;

const N = 100;

var m:array [1 ... N] of real;

var i: integer;

var j: integer;

var summ: real;

begin

summ:=0;

for i : = 1 to N do

begin

j: = random (555);

m[i]:=j;

if j mod i = 0 then summ:=summ+m[i];

end;

write (summ:10:0);

end.