Var
mas[1..1000000] array of integer;
A, I:integer;
Begin
For i:=1 to mas.Lenght() do
If (mas[I] mod 12 = 0) then
A+=1;
End.
