Программа генерирует 10 целых чисел в диапазоне от 0 до
20. Посчитать, сколько из них четных.
Программа на языке Pascal ABC!
Помогите пожалуйста! Буду очень признателен!

var i,k:integer;    a:array[1..10] of integer;begin for i:=1 to 10 do begin  a[i]:=random(20);  if a[i] mod 2 = 0 then k:=k+1; end; writeln(k);end.