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

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