Program Pascal : Olah N data

program N_Bilangan;
{Dibaca N bilangan kemudian hitung jumlah, rata-rata, nilai min, nilai maks
lalu tampilkan di layar}

var n,maks,min,jml,bil,i : integer;
    avg : real;

begin
    writeln('');
    write('Masukan banyaknya bilangan : ');
    read(n);

    bil:=0;

    for i:=1 to n do
    begin
       write('Masukan bilangan : ');
       read(bil);

       jml:=jml+bil;

       if bil > maks then
       begin
          maks := bil;
       end;

       if bil < min then
       begin
          min:=bil;
       end
       else if i = 1 then
       begin
          min:=bil;
       end;

    end;

    avg := jml/n;

    writeln('Jumlah seluruh bilangan : ',jml);
    writeln('Rata-rata seluruh bilangan : ',avg);
    writeln('Nilai maks dari seluruh bilangan : ',maks);
    writeln('Nilai min dari seluruh bilangan : ',min);

end.

Hasil Program