Nilai Akhir

Ini adalah script yang saya kerjakan untuk mengetahui nilai akhir saya, namun jika penghitungannya berbeda ubah saja logikanya :D

Selamat Mencoba :D

uses crt;
var nama, kls, fak,npm, huruf : string;
    N1, N2, N3, jum, rata : real;
begin
     clrscr;
     writeln('###############################################################################');
     writeln('                         PROGRAM MENGHITUNG NILAI AKHIR                          ');
     writeln('===============================================================================');
     writeln;
     write('  Masukan Nama            : ');              readln(nama);
     write('  Masukan Npm             : ');              readln(NPM);
     write('  Masukan Kelas           : ');              readln(kls);
     write('  Masukan Fakultas        : ');              readln(fak);
     writeln;
     write('  Masukan Nilai Tugas     : ');              readln(N1);
     write('  Masukan Nilai Uts       : ');              readln(N2);
     write('  Masukan Nilai UAS       : ');              readln(N3);

     clrscr;
     writeln('===============================================================================');
     writeln('                               NILAI AKHIR ANDA                          ');
     writeln('===============================================================================');
     writeln('  Nama            : ',nama);
     writeln('  NPM             : ',npm);
     writeln('  Kelas           : ',kls);
     writeln('  Fakultas        : ',fak);
     writeln;
     jum:=N1+N2+N3;
     rata:=jum/3;
     writeln('  Nilai Akhir : ',rata:0:0);

     If  (rata>=0) and (rata<40) then
    Huruf:='E'
    Else if (rata>40) and (rata<55) then
    Huruf:='D'

    Else if (rata>55) and (rata<70) then
    Huruf:='C'

    Else if (rata>70) and (rata<80) then
    Huruf:='B'

    Else if (rata>80) and (rata<=100) then
    Huruf:='A'

        Else

Huruf:='Z';
Writeln;
Writeln('  Grade :  ',huruf);

     If  (rata>=0) and (rata<40) then
        writeln('  Keterangan : TIDAK LULUS')

        Else if (rata>40) and (rata<55) then
    writeln('  Keterangan : TIDAK LULUS')

    Else if (rata>55) and (rata<70) then
    writeln('  Keterangan : LULUS')

    Else if (rata>70) and (rata<80) then
    writeln('  Keterangan : LULUS')

    Else if (rata>80) and (rata<=100) then
         writeln('  Keterangan : LULUS');


readln;
end.

dan inilah hasil codingan saya diatas :D