program zzz;var x:integer;beginwriteln('vvedi chislo');readln(x);if x mod 2=0 then writeln('×åòíîå') else writeln('Íå÷åòíîå')end.
program zzz;
var x:integer;
begin
writeln('vvedi chislo');
readln(x);
if x mod 2=0 then writeln('×åòíîå') else writeln('Íå÷åòíîå')
end.