Program Rata Rata Bilangan dengan Fungsi Procedure pada Pascal

sebenarnya banyak cara yang digunakan untuk mencari rata rata dalam pascal. sekarang saya akan menjabarkan pengaplikasian fungsi procedure pada pascal untuk mencari sebuah rata rata dari sekumpulan data N-bilangan


program Rata_Rata_Bilangan_Bulat ;
     uses wincrt ;
     procedure HitungRataRata ;
     var
     x, N, k, jumlah : integer ;
     rata : real ;
     begin
          write ( 'Masukkan banyaknya data ? ' ); readln (N) ;
          jumlah := 0 ;
          for k := 1 to N do
            begin
              write ( 'Nilai x : ? ' );
              readln (x) ;
              jumlah := jumlah + x ;
            end;
          rata := jumlah/N ;
          writeln ( 'Nilai rata rata =' , rata:0:2) ;
     end;
     begin
          writeln ( 'Menghitung rata rata N buah bilangan bulat' );
          HitungRataRata;
     end.

Hasilnya :

Menghitung rata rata N buah bilangan bulat
Masukkan banyaknya data ?
Nilai x : ? 34
nilai x : ? 12
nilai x : ? 23
Nilai rata-rata = 23.00