Помогите решить две задачи ) 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-ый пакет тяжелее