program Test
var
n: Integer;
begin
Write ('Введите число: ');
ReadLn (n);
if n mod 2 = 0 then
WriteLn ('четное')
else
WriteLn ('не четное');
ReadLn;
end.
