program IncDec;
var
  a : integer;
begin
  a := 1;
  Write('a = ', a);
  inc(a);
  Writeln('a + 1 = ', a);
  dec(a);
  Writeln('a - 1 = ', a);
  readln;
end.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}