Решить две ) 1)дано число а, узнать чётно оно или нет; 2)даны 2 пакета с рисом 1-ый пакет m кг, а 2-ой пакет n кг, узнать наибольший пакет (решать разветвлённым алгоритмом)

1) var a: integer; begin write('a = '); readln(a); if a mod 2 = 0   then writeln(a,' - четное')   else writeln(a,' - нечетное'); end. пример: a = 15 15 - нечетное 2) var m,n: integer; begin write('m = '); readln(m); write('n = '); readln(n); if m> n   then writeln('1-ый пакет тяжелее')   else writeln('2-ой пакет тяжелее'); end. пример: m = 12 n = 10 1-ый пакет тяжелее