Составить программу: даны натуральное число m и целые числа d1, d2, ..., dm. Выяснить, верно ли, что количество положительных чисел di кратно трем.

Program Proverka;

var a, b, c, k:integer;

begin

k:=0;

read (a);

for c: = 1 to a do

begin

read (b);

if (b > 0) then

begin

k:=k+1;

end;

end;

if (k mod 3 = 0) then

begin

write ('YES');

end

else

begin

write ('NO');

end;

end.