{ 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 }