Pascal 012 ► Mostrar los pares entre 1 y 100

Ejercicio 012: Mostrar los pares entre 1 y 100.

Program Pascal_012;
uses crt;
var
    i : integer;
Begin
    for i:=2 to 100 do
        if (i mod 2 = 0) then
            WriteLn(i);
    ReadKey;
End.