Task3.4

% Составить программу для проверки введенного натурального числа на четность.

четность(Арг):-Рез is (Арг mod 2), Рез=\=0,
write("Число нечетное"), !;
writeln("Число четное").