Программа генерирует 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.