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