var i: integer;  // задаём целочисленную переменную для цикла

begin // начало программы

for i:=0 to 100 do  // цикл чисел от 0 до 100

if i mod 2 = 0 then write(i,' ');  // проверка числа на чётность с последующем выводом подходящего числа и отсеиванием нечётных чисел

end. // конец программы