Чётные и нечётные

var x:array[1..20] of integer;
i,n:integer;
begin read(n);
for i:=1 to n do read(x[i]);
for i:=1 to n do if (x[i] mod 2=0) then write('Чётный') else if (x[i] mod 2 =1) then write('нечётный');
end.