Написать программу по определению Четности или Нечетности числа. Число вводится с клавиатуры.Дам 17+9 бала

На паскале:

var a:integer;

begin

writeln('Введите целое положительное число');

read(a);

if a mod 2 = 0 then writeln('Число чётное')

else writeln('Число нечётное');

end.