Разберите программу, которая заполняет массив а (1 ... 10) случайными целыми числами в диапазоне от 1 до 10 и выводит на экран индексы элементов с чётными значениями

Var ar:array[1 ... 10] of integer;

i:integer;

begin;

randomize;

writeln ('Array');

for i:=1 to 10 do

begin;

ar[i]:=random (1,10);

write (ar[i]:4);

end;

writeln;

writeln ('Result:');

for i:=1 to 10 do

if ar[i] mod 2=0 then write (i:4);

end.