{ 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; begin write('Voto 1 ? '); readln(voto); somma := voto; write('Voto 2 ? '); readln(voto); somma := somma + voto; write('Voto 3 ? '); readln(voto); somma := somma + voto; writeln('Media dei voti : ', somma/3 :5:2) end. { Media3Voti }