Помогите составить программу которая формирует массив из 12 случайных чисел от 0 до 40 и выводит на экран четные элементы массива

program massiv;var a,n,i,kol:integer;m:array[1..40] of integer;beginwriteln('Массив из случайных 12 чисел:');for i:=1 to 12 do beginm[i]:=random(40)+2;write(m[i]:4);if m[i] mod 2 = 0 then kol:=kol+1;end;writeln;writeln('Количество четных чисел');write(kol);end.С тебя лучший ответ)