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

program num;

var

i: integer;

begin

for i: = 20 to 40 do

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

end.