введите что будет выведено в результате выполнения фрагмента программы
A:=124
If mod 2 <>0
Then a:=a+1
Else a:=a-1
Writeln(a) ​