Pascal Nilai Mahasiswa

Program Nilai_akhir_mahasiswa;
Uses Crt;
Var
   Nama,NIM,Jenjang,Prodi,Ket : String;
   NilPres,NilUts,NilUas,NilTug,NilAkhir : Real;
   Absen : Integer;
   Grade : Char ;
Begin
     Clrscr;
     Writeln('      DAFTAR NILAI MAHASISWA      ');
     Writeln('==================================');
     Writeln;
     Write('  NIM            : ');Readln(NIM);
     Write('  Nama Mahasiswa : ');Readln(Nama);
     Write('  Jenjang        : ');Readln(Jenjang);
     Write('  Program Study  : ');Readln(Prodi);
     Writeln;
     Write('  Kehadiran      : ');Readln(Absen);
     Write('  Nilai Tugas    : ');Readln(NilTug);
     Write('  Nilai UTS      : ');Readln(NilUts);
     Write('  Nilai UAS      : ');Readln(NilUas);
     NilPres:=Absen/14*100/100*10;
     NilTug:=NilTug*25/100;
     NilUts:=NilUts*25/100;
     NilUas:=NIlUas*40/100;
     NilAkhir:=NilPres+NilTug+NilUts+NilUas;
     If NilAkhir >= 85 Then
        Grade:='A'
     Else
     If NilAkhir >= 75 Then
        Grade:='B'
     Else
     If NilAkhir >= 60 Then
        Grade:='C'
     Else
     If NilAkhir >= 45 Then
        Grade:='D'
     Else
        Grade:='E';

     Begin
          If Grade = 'A' Then
             Ket:='LULUS'
          Else
          If Grade = 'B' Then
             Ket:='LULUS'
          Else
          If Grade = 'C' Then
             Ket:='LULUS'
          Else
          If Grade = 'D' Then
             Ket:='REMEDIAL'
          Else
             Ket:='GAGAL'
     End;
     Begin
          If Ket = 'LULUS' Then
             Textcolor(Yellow)
          Else
          If Ket = 'REMEDIAL' Then
             Textcolor(Green)
          Else
             Textcolor(Red)
     End;
     Readln;

     Writeln;
     Writeln('  Nilai Presensi : ',NilPres:4:2);
     Writeln('  Nilai Tugas    : ',NilTug:4:2);
     Writeln('  Nilai U T S    : ',NilUts:4:2);
     Writeln('  Nilai U A S    : ',NilUas:4:2);
     Writeln;
     Writeln('  Nilai Akhir    : ',NilAkhir:4:2);
     Writeln('  G R A D E      : ',Grade);
     Writeln('  Keterangan     : ',Ket);
     Readln;
End.