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

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