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

Var
a : integer;
begin
readln (a);
if a mod 2 = 0 then
writeln ('число является чётным');
else
writeln ('число не является чётным');
end.