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

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

Задать свой вопрос
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-ый пакет тяжелее
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт