{ File: mesesucc.pas }

{ Scopo: uso di istruzione composta }

program MeseSuccessivo;
{ Legge mese ed anno di una data e determina il mese successivo. }

var
  mese, anno, mesesucc, annosucc : integer;

begin
  write('Mese e anno ? ');
  readln(mese, anno);

  if mese = 12 then
  begin
    mesesucc := 1;
    annosucc := anno + 1
  end
  else
  begin
    mesesucc := mese + 1;
    annosucc := anno;
  end

  writeln;
  writeln('Mese successivo al', mese:2, '/', anno:4, 'e'' ',
          mesesucc:2, '/', annosucc:4)
end. { MeseSuccessivo }