var
k, i: Integer;
arr:array[1..10] of Integer;
begin
k:=0;
for i := 1 to 10 do begin
arr[i] := random(100);
write (arr[i]:4);
if arr[i] mod 3 = 0 then
k:=k+1;
end;
writeln();
writeln(k);
end.
