Program menentukan grade dalam pascal

Assalamu'alaikum wr.wb
Pada kesempatan kali ini admin akan memberikan contoh program menentukan grade dari nilai akhir kita masing" dan program ini sudah dijalankan oleh admin sendiri hasilnya 100% bisa jika tidak bisa silahkan komen dibawah ini :)

Hasilnya seperti ini

program grade;
uses crt;
var
    npm,nama,ket:string;
    uts,uas,praktik,NA:real;
    grade:char;
begin
clrscr;
write('Masukkan NPM Anda : ');readln(npm);
write('Masukkan Nama Anda : ');readln(nama);
write('Masukkan Nilai UTS : ');readln(uts);
write('Masukkan Nilai UAS : ');readln(uas);
write('Masukkan Nilai Praktikum : ');readln(praktik);
writeln;
NA:=(0,4*uts) + (0.5*uas) + (0.1*praktik);
writeln('Nilai akhir anda adalah ',NA:2:1);
writeln;
     if (NA >=80) then
     begin
        grade:= 'A';
        ket:= 'LULUS';
     end;
     if (NA >=70) and (NA <80) then
     begin
        grade:= 'B';
        ket:= 'LULUS';
     end;
     if (NA >=60) and (NA <70) then
     begin
        grade:= 'C';
        ket:= 'LULUS';
     end;
     if (NA >=50) and (NA <60) then
     begin
        grade:= 'D';
        ket:= 'TIDAK LULUS';
     end;
     if (NA <50) then
     begin
        grade:= 'E';
        ket:= 'TIDAK LULUS';
     end;
writeln('Selamat !!!');
writeln;
writeln('Nama anda ',nama, ' dengan NPM ',npm, ' dinyatakan ',ket);
writeln('Mendapatkan nilai akhir ',NA:2:1, ' dengan grade ',grade);
readln;
end.