Ну по - моему тут вообще просто:
var i:integer;
begin;
i:=14;
if i mod 2=0 then writeln('chetnoe')
else writeln('nechetnoe');
end.
