Mencari Rata - Rata dengan Perulangan For To Do

program rata_rata;
uses crt;
var
  i, jum, bil, n : integer;
  rata           : real;

begin
clscr;
  write('Masukkan Data yang Akan di Jumlahkan : ');
  readln(n);
  jum:=0;

  for i:=1 to n do
  begin
    write('Masukkan Bilangan ',i,' : ');
    readln(bil);
    jum:= jum + bil;
  end;
  rata := jum/n;
  writeln;
  writeln('Jumlah Bilangan    : ',jum);
  writeln('Rata - rata Jumlah : ',rata:0:2);
  readln;
end.

Ini dia Hasil Output Dari Program yg udah jadi.,
he.. he..

Selamat Mencoba...!!