program pascal hitung nilai rata2

program HIT_RATA_RATA;
uses wincrt;
var
   N:integer;
   U:real;
      procedure RATA_RATA(N:integer; var U:real);
      var
         I,Bil,Total:integer;
      begin
         Total:=0;
         I:=1;
         while I<=N do
         begin
            write('Masukan Bilangan ',I,' = ');
            readln(Bil);
            Total:=Total+Bil;
            I:=I+1;
         end;
         U:=Total/N;
      end;
begin {program utama}
   clrscr;
   write('Banyaknya Bilangan = ');
   readln(N);
   writeln('====================');
   RATA_RATA(N,U);
   writeln('Rata-Rata = ',U:10:2);
   readln;
end.