Задан целочисленный массив размера N. Определить число элементов в массиве кратных 2 (написать на pascal)

program col;var  arr: array [1..10] of integer;  i,n,col: integer;beginrandomize;n:=10;col:=0;for i:=1 to n do begin    arr[i]:=random(100);    if arr[i] mod 2=0 then col:=col+1;    write(arr[i],',');end;  writeln;  writeln('количество элементов кратных двум ', col);  readln;end.