bahasa pemograman pascal daftar indeks mahasiswa (if then else)

program  Daftar_Indeks_Mahasiswa;
uses crt ;
var      u1, u2, u3, t, a : integer ;
         NA : real ;
         indeks : string [5] ;
begin
         clrscr ;
         write('Nilai u1 : ');read(u1);
         write('Nilai u2 : ');read(u2);
         write('Nilai u3 : ');read(u3);
         write('Nilai t  : ');read(t);
         write('Nilai a  : ');read(a);
         NA:=0.2*u1 + 0.25*u2 + 0.3*u3 + 0.15*t + 0.1*a ;
         if NA>=80 then indeks := 'A'
         else if NA>=65 then indeks := 'B'
         else if NA>=55 then indeks := 'C'
         else if NA>=45 then indeks := 'D'
         else indeks := 'E';
         writeln('Nilai Akhir : ',indeks);
         readln ;
End.