Program Menentukkan Grade Pada Pascal

uses crt;
var nama,kelas:string;
uas,uts:integer;
npm:integer;
hasil:real;
begin
    clrscr;
    writeln ('Silahkan Masukkan Data Mahasiswa');
    write ('Nama              : ');readln (nama);
    write ('NPM               : ');readln (npm);
    write ('Kelas             : ');readln (kelas);
    write ('Masukan Nilai UTS : ');readln (uts);
    write ('Masukan Nilai UAS : ');readln (uas);
    hasil :=0.3*uts+0.7*uas;
                if (hasil>=80) then
                        writeln ('Anda Mendapat Grade "A" Dengan Nilai :'
                        ,hasil:0:0,' Dan Anda Dinyatakan LULUS')
                else if (hasil>=70) then
                        writeln ('Anda Mendapat Grade "B" Dengan Nilai : '
                        ,hasil:0:0,' Dan Anda Dinyatakan LULUS')
                else if (hasil>=60) then
                        writeln ('Anda Mendapat Grade "C" Dengan Nilai : '
                        ,hasil:0:0,' Dan Anda dinyatakan LULUS')
                else if (hasil>=50) then
                        writeln ('Anda Mendapat Grade "D" Dengan Nilai : '
                        ,hasil:0:0,' Dan Anda dinyatakan LULUS')
                ELSE writeln ('Anda Mendapat Grade "E" Dengan Nilai : '
                ,hasil:0:0, ' Anda Tidak LULUS');
        readln;
end.