Помогите пожалуйста. Пользователь вводит 20 чисел. Напишите программу,которая будет...

Question

Помогите пожалуйста. Пользователь вводит 20 чисел. Напишите программу,которая будет считать количество четных чисел. Надо сделать в PascalABC . 8 класс. СРОЧНО!!!

Answer 1

Program n1;
var a,k,i: integer;
begin
for i:=1 to 20 do
begin
readln(a);
if a mod 2=0 then k:=k+1;
end;
writeln(k);
end.