Tugas Struktur data

Membuat program untuk mencari nilai rata-rata dari 4 masukkan nilai.

source code :
Uses wincrt;
var nilai : array [1..4] of integer ;
jm,rata : real;
begin
clrscr ;

writeln(‘menghitung rata-rata 4 buah nilai’);
writeln(‘nilai =’);readln(nilai [1] );
writeln(‘nilai =’);readln(nilai [2] );
writeln(‘nilai =’);readln(nilai [3] );
writeln(‘niali =’);readln(nilai [4] );
jm := nilai[1]+nilai[2]+nila[3]+nilai[4];
rata:= jm/4;
writeln;
writeln(‘jumlah =’,jm :9:2);
writeln(‘rata-rata =’,rata :9:2);
end.