var
arv,i,count:integer;
begin
writeln('Sisesta 20 arvu');
count:=0;
for i:=1 to 20 do
begin
readln (arv);
if (arv mod 3=0) then count:=count+1;
end;
writeln('Sisestatud arvudest jagub kolmega ',count,' arvu.');
readln;
end.