Program Untuk Menghitung Nilai

program mencari_nilai;
uses wincrt;
var
Nilai : array[1..50] of real;
jumlah, rata : real;
i,a, JumDat : byte;
nama : string;

begin
 writeln('Menghitung Nilai Ujian PIK Kelas A');
 Writeln('==================================');
 writeln('Masukkan Nama Mahasiswa :' );
 readln(nama);
 Writeln('Banyaknya Ujian :');
 readln(JumDat);

  for i := 1 to Jumdat do
  begin
   Write('Masukkan Nilai Ujian ke',i,' =');
   Readln(Nilai[i]);
  end;
 jumlah:=0;

  for i:= 1 to JumDat do
  begin
   Jumlah := jumlah + Nilai[i];
   rata := Jumlah/JumDat;
  end;
 writeln('==================================');
 writeln('Nama Mahasiswa = ',nama);
 
  for i := 1 to jumdat do
  begin
   writeln('Nilai Ujian ke-',i,'=',nilai[i]:3:0);
  end;
 writeln('Total Nilai = ',jumlah:3:0);
 writeln('Nilai Rata-Rata Ujian = ',Rata:3:1);
end.

Tampilan ketika program ini di run adalah sebagai berikut :