[BlackDragon]

Program q333;
var i,a,b:integer;
begin
for i:=a to 100 do begin
if i mod 2=0 then write(i);
Readln;
end;

mod - остаток от деления. Если он равен нулю при делении на 2 - то число четное, если не равен нулю - нечетное.
p.s. Если в чем-то ошибся просьба сильно не бить, последний раз писал на паскале больше 10 лет назад