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

begin

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

/ / внутри объявлена переменная - счетчик i

begin

if (i mod 2 = 0) then / / проверяем делится ли число на 2 без остатка

writeln (i); / / если число четное, то выводим его на экран

end;

end.