В Паскале пожалуйста. Для N вводимых с клавиатуры чисел определить количество четных...

Question

В Паскале пожалуйста.
Для N вводимых с клавиатуры чисел определить количество четных чисел и
сумму нечетных чисел.

Answer 1

Var n, d, i, c, u: integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
begin
readln(d);
if d mod 2 = 0 then c:=c+1 else u:=u+1;
end;
writeln('Четных ', c);
writeln('Нечетных ', u)
;end.