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

program num;

var
i: integer;

begin
for i:= 20 to 40 do
if i mod 2 = 0 then writeln ( i ); // проверяем чётность числа с поддержкою вычисления остатка от целочисленного разделенья  операции mod: если остаток от деления указанного числа на 2 равен 0, то это число является чётным.
end.