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

Var n:integer;
begin
write('n = '); readln(n);
if n mod 2 = 0
 then writeln('Число четное')
 else  writeln('Число нечетное');
end.

Пример:
n = 30
Число четное