Nilai rata rata "pascal"

Program ini adalah program menghitung nilai rata-rata dengan mengunakan fungsi function :
bisa di lihat dibawah ini bagaimana program utama dan badan program fungsi.

PROGRAM TUGAS_DUA;
USES CRT;
VAR
   N,A,BILANGAN,TOTALBILANGAN : INTEGER;
   RATA2                      : REAL;
FUNCTION NILAIRATA2(TOTALBILANGAN,N : INTEGER): REAL;
BEGIN
     RATA2 := TOTALBILANGAN/N;
     END;
     BEGIN
     CLRSCR;
     WRITE('MASUKAN JUMLAH BILANGAN : '); READLN(N);
     TOTALBILANGAN := 0;
     FOR A := 1 TO N DO
     BEGIN
     WRITE('MASUKAN BILANGAN KE ',A,' : '); READLN(BILANGAN);
     TOTALBILANGAN := TOTALBILANGAN+BILANGAN;
     END;
     NILAIRATA2(TOTALBILANGAN,N);
     WRITELN('NILAI RATA-RATA : ',RATA2:1:0);
     READKEY;
END.