{ File: media3v.pas } { Scopo: primo esempio di uso dell'assegnazione } program Media3Voti; { Legge 3 voti e ne calcola e stampa la media. Utilizza una variabile per accumulare la somma dei voti. } var voto, somma : integer; media : real; begin write('Voto 1 ? '); readln(voto); somma := voto; write('Voto 2 ? '); readln(voto); somma := somma + voto; write('Voto 3 ? '); readln(voto); somma := somma + voto; media := somma / 3; writeln('Media dei voti : ', media) end. { Media3Voti }