Program Input Nilai Mahasiswa pada Turbo Pascal

program inputnilaimhs;
uses wincrt;
const
garis='---------------------------------------------------------------------------';
var
nil1,nil2,nil3,nil4,nil5:array[1..10] of 0..100;
nim:array[1..10] of string [20];
NAMA:ARRAY[1..10] OF STRING [20];
n,i,bar:integer;
jum:real;
tl:char;
begin
clrscr;
{ pemasukan data dalam array }
writeln('maximize dulu windows anda,');writeln('untuk mendapat hasil yang maximal!!!!');
write('berapa data mahasiswa yang akan di input :');
readln
 (n);
 for i := 1 to n do
 begin
 clrscr;
 gotoxy(30,4+1);write('data ke-:',i:2);
 gotoxy(11,5+i);write('nim      :');readln(nim[i]);
 gotoxy(11,6+i);write('nama     :');readln(nama[i]);
 gotoxy(11,7+i);write('nilai 1  :');readln(nil1[i]);
 gotoxy(11,8+i);write('nilai 2  :');readln(nil2[i]);
 gotoxy(11,9+i);write('nilai 3  :');readln(nil3[i]);
 gotoxy(11,10+i);write('nilai 4 :');readln(nil4[i]);
 gotoxy(11,11+i);write('nilai 5 :');readln(nil5[i]);
 end;
 { proses data dalam array }
 clrscr;
 gotoxy(5,4);write(garis);
 gotoxy(5,5);write('no');
 gotoxy(9,5);write('nim');
 gotoxy(18,5);write('nama');
 gotoxy(28,5);write('nilai1');
 gotoxy(37,5);write('nnil2');
 gotoxy(45,5);write('nil3');
 gotoxy(53,5);write('nil4');
 gotoxy(61,5);write('nil5');
 gotoxy(69,5);write('rata');
 gotoxy(75,5);write('abjad');
 gotoxy(5,6);write(garis);

{ proses cetak isi array dan seleksi kondisi }
 bar :=7;
 for i:=1 to n do
 begin
 jum:=(nil1[i]+nil2[i]+nil3[i]+nil4[i]+nil5[i])/5;
 if
 jum=100 then tl:='A'
 ELSE
 IF JUM>80 THEN TL:='B'
 ELSE
 IF JUM>60 THEN TL:='C'
 ELSE
 IF JUM>50 THEN TL:='D'


 else
 tl:='E';
 { cetak hasil yang disimpan di array dan hasil }
 { penyelesaian kondisi }
 gotoxy(5,bar);writeln(i:2);
 gotoxy(9,bar);writeln(nim[i]);
 gotoxy(18,bar);writeln(nama[i]);
 gotoxy(28,bar);writeln(nil1[i]:4);
 gotoxy(37,bar);writeln(nil2[i]:4);
 gotoxy(45,bar);writeln(nil3[i]:4);
 gotoxy(53,bar);writeln(nil4[i]:4);
 gotoxy(61,bar);writeln(nil5[i]:4);
 gotoxy(69,bar);writeln(jum:5:1);
 gotoxy(77,bar);writeln(tl);
 bar:=bar+1;
 end;
 gotoxy(5,bar+1);writeln(garis);
 readln;
 end.