Помогите решить две задачки )1)дано число а, выяснить чётно оно либо

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 mgt;n
 then writeln('1-ый пакет тяжелее')
 else writeln('2-ой пакет тяжелее');
end.

Пример:
m = 12
n = 10
1-ый пакет тяжелее