Помогите составить программу которая формирует массив из 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.

С тебя лучший ответ)