program latian_rabu;

uses wincrt;

var nilai:Array[1..4]of Integer;
jumlah,i,n:integer;
a:real; {a=rata-rata}

begin
clrscr;
writeln('banyak data yang akan di jumlahkan?');
readln(n);
jumlah:=0;
for i:=1 to n do
begin
writeln('masukan bilangan ke ',i);
readln(nilai[i]);
jumlah:=jumlah+nilai[i];
a:=jumlah/n;
end;
writeln('Hasil penjumlahan dari ke ',n, 'bilangan tersebut adalah = ',jumlah);
writeln('Rata-Rata dari ke ',n, 'bilangan tersebut adalah = ',a:0:2);

end.