Proses nilai maha siswa

Proses nilai maha siswa

uses
    Wincrt;
var
   nim :string[10];
   nama:string[40];
   ket :string[12];
   grade:string[1];
   nil_hadir,nil_quis,n_tugas,n_uts,n_uas     :integer;
   rata :real;
begin
     clrscr;
     gotoxy(20,3);write('#==============================================#');
     gotoxy(20,4);write('#    PROSES NILAI MAHASISWA                    #');
     gotoxy(20,5);write('#==============================================#');
     gotoxy(20,6);write('# NPM        :                                 #');
     gotoxy(20,7);write('# NAMA       :                                 #');
     gotoxy(20,8);write('# N.kehadiran:                                 #');
     gotoxy(20,9);write('# N. QUIS    :                                 #');
     gotoxy(20,10);write('# N.TUGAS    :                                 #');
     gotoxy(20,11);write('# N.UTS      :                                 #');
     gotoxy(20,12);write('# N.uas      :                                 #');
     gotoxy(20,13);write('#==============================================#');
     gotoxy(20,14);write('# RATA-RATA  :                                 #');
     gotoxy(20,15);write('# KETERANGAN :                                 #');
     gotoxy(20,16);write('# nilai huruf:                                 #');
     gotoxy(20,17);write('#============================================= #');
     gotoxy(39,6);readln(nim);
     gotoxy(39,7);readln(nama);
     gotoxy(39,8);readln(nil_hadir);
     gotoxy(39,9);readln(nil_quis);
     gotoxy(39,10);readln(n_tugas);
     gotoxy(39,11);readln(n_uts);
     gotoxy(39,12);readln(n_uas);
     rata:=(nil_hadir*0.1)+(nil_quis*0.1)+(n_tugas*0.15)+(n_uts*0.25)+(n_uas*0.4);
     if(rata>=60)then
       ket:=('lulus')else
       ket:=('tidak lulus');
       if(rata>=80)then
       grade:=('A')else
       if(rata>=60)then
       grade:=('B')else
       if(rata>=40)then
       grade:=('C')else
       if(rata>=20)then
       grade:=('D')else
       grade:=('E');
     gotoxy(39,14);write(rata:3:2);
     gotoxy(39,15);write(ket);
     gotoxy(39,16);write(grade);
end.