Program Rata-Rata

Program rerata_data;
uses wincrt;
var
N:integer;
u:real;
procedure hitungratarata (N: integer; var u:real);
var
nilai,a,b,c,varians:real;
i:integer;
jumlah:real;
begin
jumlah:= 0;
for i := 1 to N do
begin
write ('nilai: '); readln (nilai);
jumlah:=jumlah + nilai;
b:=b+sqr(nilai);
a:=1/(N-1);
end;
u:= jumlah/N;
c:=n*sqr(u);
varians:=a*(b-c);
writeln('Nilai varians= ',varians:1:2) ;
end;
begin
write (' jumlah peserta ujian; '); readln (N);
hitungratarata (N,u);
writeln('Nilai ratarata= ',u:1:2) ;
if u < 50 then
writeln ('nilai ratarata ujian mhs tidak bagus')
else
writeln ('nilai ratarata ujian mhs bagus')
{end if}
end.