Программа Паскаль: вывести все чётные числа первой сотки

begin
    for var i:=1 to 100 do   // цикл, которые перебирает целые числа от 1 до 100,

                                      // внутри объявлена переменная - счетчик i
       begin
           if (i mod 2 = 0) then   // проверяем делится ли число на 2 без остатка
              writeln (i);              // если число четное, то выводим его на экран
       end;

end.