Program Menghitung_Rata_Rata

Program Menghitung_Rata_Rata;
Uses Wincrt;
Var n,x,i,tot:integer;
     rata:real;
Begin
  Writeln('Program Menghitung Rata-Rata');
  Writeln('============================');
  Writeln;
  Write('Masukkan Jumlah Bilangan: ');readln(n);
  Writeln;
  Writeln('Masukkan Bilangan: ');
  tot:=0;
  For i:= 1 to n do
     Begin
       Readln(x);
       tot:=tot+x;
     End;
  rata:=tot/n;
  Writeln;
  Writeln('Total Bilangan: ',tot:6);
  Writeln('Rata-Rata     : ',rata:6:2);
End.