Membuat Program Matakuliah pada Bahasa Pemrograman Pascal

Sekian lama bingung mau nulis apa,, Akhirnya dapat inspirasi juga dari matkul yang baru diajarkan,, :)
Pos terbaru dibulan Oktober ini mengenai Program Matakuliah pada Bahasa Pemrograman Pascal.
semoga bisa bermanfaat untuk anda yang membutuhkan :D

Tahap-tahap yang dilakukan sbb:


{created by ochie}

Program MataKuliah;

uses wincrt;

var
NIM, Nama , Matkul, Nilai_Huruf, Predikat , Ket: String;
Nilai_TS, Nilai_AS, Nilai_Tgs, Nilai_HadIr, Nilai_Akhir:real;

Begin
{Input}

Write('Masukkan NIM:'); readln(NIM);
Write('Masukkan Nama:'); readln(Nama);
Write('Masukkan Nama Mata Kuliah:'); readln(Matkul);
Write('Masukkan Nilai UTS  :'); readln(Nilai_TS);
Write('Masukkan Nilai UAS   :'); readln(Nilai_AS);
Write('Masukkan Nilai Tugas :') ; readln(Nilai_Tgs);
Write('Masukkan Nilai Hadir  :'); readln(Nilai_Hadir);

{PROSES}
Nilai_Akhir:= (0.35*Nilai_TS)+ (0.35*Nilai_AS)+
           (0.2*Nilai_Tgs)+ (0.35*Nilai_Hadir);

If Nilai_Akhir <=45 Then
begin
Nilai_Huruf:='E';
Predikat:='Alamak';
End


else

If Nilai_Akhir <=55 Then
begin
Nilai_Huruf:='D';
Predikat:='Belajar Lagi';
End

else

If Nilai_Akhir <=67 Then
begin
Nilai_Huruf:='C';
Predikat:='Cukupan';
End

else

If Nilai_Akhir <=84 Then
begin
Nilai_Huruf:='B';
Predikat:='baik';
End

else

If Nilai_Akhir <=100 Then
begin
Nilai_Huruf:='A';
Predikat:='Apik Tenan';
End ;

If (((Nilai_Huruf='A') or (Nilai_Huruf='B') or (Nilai_Huruf='C')) and (Nilai_Hadir>=60)) or

(((Nilai_Huruf='A') OR (Nilai_Huruf='B') or (Nilai_Huruf='C') or (Nilai_Huruf='D')) and (Nilai_Hadir>=80)) then
Ket:='Lulus'
else
Ket:='Tidak Lulus';

clrscr;
{Output Data}
writeln('NIM                   : ',NIM);
writeln('Nama                    : ',Nama);
writeln('Mata Kuliah            : ',Matkul);
writeln('Nilai Akhir            : ',Nilai_Akhir:4:1);
writeln('Nilai Huruf            : ',Nilai_Huruf);
writeln('Predikat               : ',Predikat);
writeln('Keterangan             : ',Ket);
End.