Написать программку которая выводит на экран все четные числа от 20

program even_numbers;

var i: integer; // параметр цикла

begin

// Если остаток от дробления числа i на 2 равен нулю,

// то вывести число i на экран

//Остаток от разделения определяется с поддержкою оператора mod.

for i:= 20 to 50 do if i mod 2 = 0 then write(i : 4);

end.