Question

Напишите пожалуйста код на языке паскаль!очень срочно надо

Answer 1

Ответ:

var

 a:integer;

begin

 readln(a);

 if a mod 2 = 0 then

   inc(a)

 else

   dec(a);

 writeln(a);

end.