Hitung Jumlah Rata-Rata NIlai yang Diinputkan Sebanyak N Kali

USES CRT;
VAR
          JData,
          J, N         : Byte;
          TotN       : Integer;
          Rata        : Real;
BEGIN
         TotN :=0 ; Rata := 0 ; J := 1 ;
         Write ('Jumlah Data   :' ) ; Readln(JData)
         While J <= JData DO
         Begin
                         Write('Nilai Ke ',J,' : ' );
                          Readln(N);
                          TotN := TotN + N ;
                          Inc(J);
          End;
          Rata := TotN / JData ;
          Write('Nilai Rata-Rata :', Rata:3:0) ;
END.