Procedure Parameter Luaran Menghitung Rata-Rata Pascal (coding)

Codepamulang. Program Pascal tentang penggunaan Prosedur/Procedure dengan parameter Luaran untuk menghitung rata-rata N buah bilangan. Programnya dapata dilihat dibawah ini:

program menghitung_rerata;
uses crt;
var
   N : integer;
   rerata : real;

procedure hitung(N: integer; var u: real);
   var
      a,b : integer;
      jumlah: real;
   begin
      for a:= 1 to N do
      begin
         write('Masukan nilai ke-',a,' = ');
         readln(b);
         jumlah:= jumlah+b;
      end;
      u:= jumlah/N;
   end;

begin
   clrscr;
   writeln('-----Menghitung Rerata Nilai-----');
   writeln();
   write('Masukan jumlah data inputan = ');
   readln(N);
   hitung(N, rerata);
   writeln();
   writeln('jadi rerata dari sejumlah data tersebut adalah = ',rerata:3:2);
   writeln('-----------------');
   writeln('Adi Sakti');
   readln;
end.

Perlu diperhatikan bahwa dalam Pascal dalam menggunakan parameter luaran menggunakan syntax "var" pada deklarasi parameternya. contoh: (N: integer; var u: real);

Hasil dari program tersebut sebagai berikut:

Thanks :)

SO: Procedure Parameter luaran pascal, pascal prosedure sederhana, prosedur luaran, parameter luaran, coding parameter luaran, coding menghitung rata-rata N buah bilangan dengan procedure parameter luaran.