Jumlah Total Data pada Pascal

Oke, kali ini gua posting Program Jumlah Total Data pada Pascal, tapi ini menggunakan Looping (perulangan) tetep belajar sob, jangan copy-paste mulu. hahaa :p

uses wincrt;

 var

i,n,jml,data:integer;

ratarata:real;

begin

write('banyak data:');readln(n);

for i:=1 to n do

begin

write('data ke ',i,':');read(data);

jml:=jml+data;

end;

ratarata:=jml/n;

writeln('jumlah total data=',jml);

writeln('rata-rata=',ratarata:3:2);

end.