{ File: media5v.pas } { Scopo: istruzioni di ingresso-uscita; espressioni } program Media5Voti; { Legge 5 voti e ne stampa la media. Utilizza una variabile per ogni voto. } var v1, v2, v3, v4, v5 : integer; begin write('5 voti ? '); read(v1,v2,v3,v4,v5); writeln('Media : ', (v1+v2+v3+v4+v5)/5) end. { Media5Voti }