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