Нужно написать программу в паскале: Дано целое трёхзначное число, определить является ли оно чётным.

program zz1;

var a:integer; / / задаем переменную целого типа

begin

write (' введите целое трехзначное число '); / / вводим с клавиатуры целое трехзначное число

read (a);

if (a mod 2 = 0) / / проверяем на четность, если число при делении на 2 в остатке дает ноль, то

then write (' целое трехзначное число является четным ') / / выводим один ответ

else write (' целое трехзначное число является не четным '); / / выводим другой ответ

end.