Определить является ли число a чётным (алгоритм на языке прогр)

Составим алгоритм на языке программирования Паскаль, который будет определять, является ли число, заданное пользователем с клавиатуры, четным или нечетным.

programm chetnostichisel;

var a: integer;

begin

writeln ('Программа определения четности / нечетности заданного числа');

writeln ('Для определения четности/нечетности, задайте любое число а'); 

readln (a);

if a mod 2 = 1 then

writeln ('Число', a , 'заданное Вами является нечетным');

else

writeln ('Число', a , 'заданное Вами является четным');

end.