Program Menghitung Jumlah & Rata2 #pascal

sebentar lagi uas , langsung dapet kisi2 soal dari dosen gan , langsung ke soalnya aj yak .

Soal
Buat program pascal masih gan , hhee
untuk menghitung jumlah bilangan & rata2 dari jumlah bilangan tersebut . yang dimana program tersebut membaca brp banyak jumlah bilangan yang ingin dimasukan user kemudian setiap bilangan ditentukan dari
user tersebut jg .


contoh output programnya gini
_____________________________________________

Mengitung jumlah & rata2 bilangan
Berapa banyak bilangan ? 3 ( user memasukan banyak bilangan 3)
Bilangan ke 1 : 20 ( user mengisi 20 untuk bilangan pertama )
Bilangan ke 2 : 5 (user mengisi 5 untuk bilangan kedua )
Bilangan ke 3: 15( user mengisi 20 untuk bilangan ketiga)

Jumlah dari 3 bilangan tersebut adalah : 40  
Rata2nya adalah : 13.33

____________________________________________

Jawab
bingung jg awalnya , mikir2 .. sedikit bantuan buku dan internet , mklum masih belajar :D
akhirnya dapet jg jawaban.a ... langsung cek aj gan .
=============================================
Program menghitungjumlahrata2;

uses wincrt;

var i, bil, jum, n : integer;
    rata : real;
begin  
write('banyak bilangan : ');
readln(n);

for i := 1 to n do
    begin
    write('bilangan ',i,' :');
    read(bil);  
            
    jum := jum + bil;  end;
    rata := jum/n;                

    writeln('jumlah bilangan : ',jum);
    writeln('rata-ratanya: ',rata:0:2);

end.
================================================