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

program num;

vari: integer;

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