{$codepage UTF8} VAR a:byte; c:char; BEGIN a:=5; Dec(a); Writeln(a); Inc(a); Writeln(a); c:='B'; Dec(c); Writeln(c); Inc(c); Writeln(c) END.