program z2; uses crt; var a,x:integer; BEGIN clrscr; writeln('a'); readln(a); if (a mod 2=0) then begin writeln('otvet chetnoe') end else if (a mod 2<>0) then begin writeln('otvet nechetnoe'); end; readln; END.