Program mencari nilai rata-rata

program rata-rata

uses crt;
Type
   nama = array[1..50] of string;
   hasil = Array[1..100] of real;

var
   i,n,n1,n2,n3,n4 : byte;
   total,rata : real;
   name : nama;
   out : hasil;

begin
 clrscr;
 write('Jumlah Mahasiswa : ');readln(n);

 for i:=1 to n do
 begin
  write('Isi Nama Siswa ',i,': ');readln(name[i]);
  write('Nilai 1 : ');readln(n1);
  write('Nilai 2 : ');readln(n2);
  write('Nilai 3 : ');readln(n3);
  write('Nilai 4 : ');readln(n4);
  total := n1+n2+n3+n4;
  rata := total/4;

  out[i] := rata;
 end;

  for i:=1 to n do
   writeln(name[i],'Rata-rata anda Adalah ',out[i]:2:0);
   readln();

end.