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

program Proverka;var a, b, c, k:integer;begink:=0;read(a);for c:= 1 to a dobeginread(b);if(b > 0) then begink:=k+1;end;end;if(k mod 3 = 0) thenbeginwrite('YES');endelsebeginwrite('NO');end;end.