Введи пропущенные фрагменты

Дано целое число. Определить четное оно или нечетное.

Для решения данной задачи была написана программа, некоторые фрагменты программы были утеряны. Введи пропущенные фрагменты

var m: [ ];

begin

writeln('Введите число');

readln(m);

if [ ] then

writeln('Это число [ ]')

[ ] writeln('Это число [ ]');

end.