Создайте программу на языке паскаль, которая отвечает критериям текста

Question

Информатика: Создайте программу на языке паскаль, которая отвечает критериям текста​

dVioletta · Answer

var

n, a, i, count: integer;

begin

count := 0;

readln(n);

for i := 1 to n do

begin

readln(a);

if a mod 4 = 0 then

count := count + 1

end;

writeln(count);

end.

Создайте программу на языке паскаль, которая отвечает критериям текста​