Program Menghitung Nilai Akhir Semester Dengan Pascal

Selamat Malam Kali Ini Mr Stolid Ingin Memposting Coding/Program Menghitung Nilai Akhir Semester Kebetulan Baru" Ini Mr Stolid Dapat Tugas Dari Kampus Membuat Program Menghitung Nilai Akhir Semester Mengunakan Turbo Pascal 1.5, Kali Aja Lagi Ada Yang Butuh Programnya Oke Deh Gak Panjang Lebar Lagi Berikut Codingnya :

Program nilai_akhir_Semeter;
uses wincrt;
var
nt,np,uts,uas,nakhir:real;
nm,nim,grd,ket:string[25];
grade:char;

begin
writeln(' Nilai Akhir Semester Mahasisiwa STMIK');
writeln('================================');
write ('Nama Mahasiswa             :');readln(nm);
write ('Nim                                       :');readln(nim);
write ('masukan Nilai Tugas       :');readln(nt);
write ('masukkan Nilai Praktek   :');readln(np);
write ('masukan Nilai UTS           :');readln(uts);
write ('masukan Nilai UAS           :');readln(uas);

nakhir:=(0.20*nt)+(0.20*np)+(0.25*uts)+(0.35*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 := 'Tak Berdaya';
'F' : ket := 'Terdampar';
end;

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

Berikut Screnshot Programnya :