Pascal :

var i,n:integer;
begin
 n:=0;
 for i:=1 to 100 do
  if i mod 3=0 then n:=n+1;
 writeln(n);
end.