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

var ar:array[1..10] of integer;i:integer;begin;randomize;writeln('Array');for i:=1 to 10 dobegin;ar[i]:=random(1,10);write(ar[i]:4);end;writeln;writeln('Result:');for i:=1 to 10 doif ar[i] mod 2=0 then write(i:4);end.