Составьте программу, которая заполняет массив [1..10] случайными целыми числами в диапазоне от 0 до 10 и находит количество всех четных элементов массива

Var s,i,n : integer;   
z: array [1..10] of integer;
Begin
Write(n=);
Read(n);
for i:= 1 to n do
begin
z[i]:= random(10);
Writeln(z[i]);
end;
s:=0;
for i:= 1 to n do
if z[i] mod 10=0 then s:=s+1;
Write(symma=, s);
end.