Использование условного оператора при решении задач

Задание №1.

Вводится с клавиатуры целое число а. определить, является ли оно чётным.

Пояснение: число является чётным, если оно делится на 2, то есть остаток от деления на 2 равен 0. В этом случае а mod 2 = 0

Program N1;

Var a:integer;

Begin

Writeln(‘введите целое число’);

Readln(a);

If a mod 2 = 0

Then writeln(‘чётное’)

Else writeln(‘нечётное’);

Readln;

End.

Задание №2

Вводятся 2 целых числа. Найти наибольшее из них.

Program N2;

Var a, b, max:integer;

Begin

Writeln(‘введите 2 числa’);

Readln(a,b);

If a > b Then max := a Else max := b;

Writeln(max,’-наибольшее’);

Readln;

End.