Написать программу на языке паскаль,которая проверяет,является ли число четным или нечетным.

Var a;
begin
Writeln('Введите число');
Readln(a);
If (a mod 2 = 0) then
Writeln('Число чётное')
else
Writeln('Число нечётное');
end.