Program OhNoNotAnotherOne;
var n,i : integer;
a : array[1..99] of real;
sum : real;
begin
a[1] := 123.0;
a[2] := 127.8;
(* etc etc etc *)
a[99] := 120.2;
sum :=0;
i:=0;
while i<n do
begin
i:=i+1;
sum := sum + a[i];
end;
writeln('Average is ', sum/n);
writeln('Eat at Joes');
end.

__________________

---