Pascal :

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