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

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