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

Program col;

var

arr: array [1 ... 10] of integer;

i, n, col: integer;

begin

randomize;

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.