Вводится число с клавиатуры. Необходимо вывести его на экран и выяснить четное он?

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