mencari rata-rata dengan program pascal

Buat yang baru belajar pascal,ini nih ada program simpel buat nyari rata-rata. Semangat belajar program pascal. Alah bisa karena biasa, pantang menyerah yaa :)

uses crt;

var i,n:integer;

sum,r:real;

x:array[1..100] of integer;

begin

write('jumlah n: ');

readln (n);

sum:= 0;

writeln('masukkan angka: ');

for i := 1 to n do

begin

readln(x[i]);

sum:=sum+(x[i]);

end;

r:=sum/n;

write('rata-ratanya adalah: ',r:3:3);

readln;

end.

Nah, gini penjelasannya, kalo kita pengen nyari nilai rata-rata sebanyak 5 bilangan(misal), saat di run masukkan angka5. Kemudian masukkan angka yang akan kita hitung rata-ratanya. Misal 7,6,3,9, dan 23. Setelah itu tekan enter ..

Walaaa, hasil dari rata-rata ke 5 bilangan tersebut adalah 9,6. Benar kan?

Selamat mencoba :)