byaka0

var i: integer;

begin  

for i:=0 to 100 do

if i mod 2 = 0 then write(i,' ');

end.