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

Предыдущий
вопрос Следующий
вопрос

program CheckEvenNumber;

va
number: integer;

begi
writeln('Введите число: ')
readln(number);

if number mod 2 = 0 the
writeln('Число ', number, ' является четным.'
els
writeln('Число ', number, ' не является четным.')
end.