Program pascal (menghitung nilai semester mahasiswa)

Berikut merupakan contoh program pascal untuk menghitung  Nilai Akhir Mahasiswa dalam satu semester.

ini sintaksnya:
Program nilai_akhir_semester_mahasiswa_UPB;
uses wincrt;
var
   nabs,nt,uts,uas,nakhir:real;
   npm,nm,prostudi,mk,grd,ket:string[25];
   grade,smtr:char;
  
begin
writeln(' Nilai Akhir Semester Mahasisiwa UPB  ');
writeln('======================================');
write  ('Nama Mahasiswa         :');readln(nm);
write  ('NPM                    :');readln(npm);
write  ('Program Studi          :');readln(prostudi);
write  ('Semester               :');readln(smtr);
write  ('Mata Kuliah            :');readln(mk);
write  ('masukan Nilai absen    :');readln(nabs);
write  ('masukan Nilai Tugas    :');readln(nt);
write  ('masukan Nilai UTS      :');readln(uts);
write  ('masukan Nilai UAS      :');readln(uas);
nakhir:=(0.15*nabs)+(0.15*nt)+(0.35*uts)+(0.4*uas);

   if (nakhir >= 80 ) and (nakhir <= 99.99) then
   grade := 'A'

   else if (nakhir >= 70) and (nakhir <= 79.99) then
   grade := 'B'

   else if (nakhir >= 60) and (nakhir <= 69.99) then
   grade := 'C'

   else if (nakhir >= 50) and (nakhir <= 59.99) then
   grade := 'D'

   else if (nakhir >= 40) and (nakhir <= 49.99) then
   grade := 'E'

   else if (nakhir >= 30) and (nakhir <= 0) then
   grade := 'F';
 
case grade of
    'A' : ket := 'Lulus Sangat Memuaskan';
    'B' : ket := 'Lulus Dengan Baik';
    'C' : ket := 'Lulus Dengan Cukup';
    'D' : ket := 'Gagal';
    'E' : ket := 'Terkapar';            
    'F' : ket := 'Ke laut ajah';
    end;

writeln;
writeln('mahasiswa yang bernama :',nm);
writeln('dengan npm             :',npm);
writeln('mendapatkan nilai akhir:',nakhir:2:0);
writeln('dan gradenya adalah    :',grade);
writeln('keterangan             :',ket);
writeln;
writeln('*****Developed By: Asep Jaenudin*******');
readln;
donewincrt;
end.

Out Put Program: