program chetnost; var x:integer; begin write('vivedi x'); readln(x); if (amod2)=0 then write(' chetno e') else write ('ne4etno'); end.
Правила