Program Penghitung Rata-rata (Mean)

Mean (rata-rata) adalah hasil bagi dari jumlah data dengan banyaknya percobaan.
Berikut ini program Pascal untuk menghitung rata-rata sejumlah data tunggal.

program rata2;
uses wincrt;
var
i,n :integer ;
x,sum,mean : real;
begin
write ('banyaknya data, n = ')  ;
readln (n) ; sum:=0; i:=0;
repeat
      i:= i+1    ;
      write ('data ke ',i,' = ');
           readln (x);
           sum:= sum+x;
           until i=n;
           mean:= sum/n ;
           writeln ('rata-rata = ',mean:9:4);
           end.

Output program pascal penghitung mean