С поддержкою оператора Паскаля FOR Вывести на экран:1) все четные числа

1)
Var i,a,b:longint;
Begin
    read(a,b);
    for i:=a to b do
    if (i mod 3=0) then write(i,' ');
    writeln;
End.

2)
Var i:longint;
Begin
    for i:=10 to 99 do
    if (абс(i mod 10 - i div 10)lt;=1) then write(i,' ');
    writeln;
End.

3)
Var i,s,f,t:longint;
Begin
    for i:=100 to 999 do
    begin
        f:=i div 100;
        s:=i div 10 mod 10;
        t:=i mod 10;
        if (f=s) or (f=t) or (s=t) then write(i,' ');
    end;
    writeln;
End.