Иванов-парикмахер.Петров-плотник.Сидоров-мельник.Гришин-почтальон.Алексеев-маляр.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b):=ReadInteger2('Введите два целых числа через пробел:');
if (a+b).IsEven then Writeln(a*b)
else Writeln(a/b)
end.
1) начало
2) вводится целое число n
3) если остаток от деления n на 2 равен 0, то печатается сообщение ' 'Число чётное', иначе на печать выдаётся сообщение 'Число нечётное'
4) конец