Помогите составить программу в паскале

Question

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

Ирина · Accepted Answer

uses crt; 
var 
a: integer; 
begin 
clrscr; 
writeln('Vvedite chislo: '); 
readln(a); 
if not odd(a) then 
writeln('Chetnoe') 
else 
writeln('Ne chetnoe'); 
readln; 
end.

Дима Сидонов · Answer

program Z2_82; 
 
uses crt; 
 
var n:integer; 
 
begin 
 
clrscr; 
 
Write('Введите целое число n=');read(n); 
 
if n mod 2=0 then write('число четное') 
 
 else write('число не четное'); 
 
readkey; 
 
end.