Program Hitung Rata-Rata -- Pascal bag. 2

Ini program kedua yang aku buat setelah program pertama Kumpulan Program Hitung Volume Bangun. Sama seperti sebelumnya, program ini masih aku buat menggunakan pascal (maklum baru bisa pke pascal).


Berikut ini Programnya :

Program Menghitung_Rata_Rata;
Uses Wincrt;
Var n,x,i,tot:integer;
rata:real;
Begin
Writeln('Program Menghitung Rata-Rata');
Writeln('============================');
Writeln;
Write('Masukkan Banyak Data : ');readln(n);
Writeln;
Writeln('Masukkan Data: ');
tot:=0;
   For i:= 1 to n do
       Begin
       Readln(x);
       tot:=tot+x;
       End;

rata:=tot/n;
Writeln;
Writeln('Total Data: ',tot:6);
Writeln('Rata-Rata : ',rata:6:2);
End.

Bagaimana keren bukan??? He...3x

Untuk program Pascal saya yang pertama ada disini