PASCAL : Mencari Grade Nilai dengan If Then Else

Sebuah LPK ternama di Purwokerto mengadakan test program computer yang akan diadakan tiga kali test(terdiri dari program visual basic, Delphi, java). Test ini diadakan untuk menentukan grade dan besarnya biaya kursus. Bila siswa tsb ingin melanjutkan ke tingkat yang lebih tinggi, ketentuan nilai :

Nilai	Grade	Besar biaya
91-100	A	50000
76-90	B	150000
60-75	C	250000
40-59	D	350000
01-39	E	450000
0	0	550000

Saya mencoba mengerjakannya dengan menggunakan if then else


uses crt;
type
 nilai=array[1..100] of byte;
var
 basic : real;
 del   : real;
 jav   : real;
 tot,t : real;
 i     : integer;
begin
 clrscr;
 write('Nilai Visual Basic anda : ');readln(basic);
 write('Nilai Delphi anda       : ');readln(delphi);
 write('Nilai Java anda         : ');readln(jav);
 t := basic+del+jav;read;
 writeln('Nilai Akhir anda        : ',t/3:2:0);
 if t/3 >=91 then
 writeln('Grade anda A, jadi anda harus membayar Rp 50.000')
 else
  if t/3 >=76 then
  writeln('Grade anda B, jadi anda harus membayar Rp 150.000')
  else
   if t/3 >=60 then
  writeln('Grade anda C, jadi anda harus membayar Rp 250.000')
  else
   if t/3 >=40 then
   writeln('Grade anda D, jadi anda harus membayar Rp 350.000')
   else
     if t/3 >=1 then
     writeln('Grade anda E, jadi anda harus membayar Rp 450.000')
     else
      writeln('Grade anda 0, jadi anda harus membayar Rp 550.000';
      readln;
end.

Hasilnya akan seperti gambar di atas