menghitung grade mahasiswa

program nilai;
uses
     wincrt;
var
   a : string [ 20];
   b,t,h,u : integer;
   na : real;

begin
gotoxy(12,3);writeln('Program Pencetak Grade Mahasiswa ');
writeln;
begin
   Write ( ' Masukkan Nama : ');readln(a);
   Write ( ' Nim           : ');readln(b);
   Write ( ' Nilai Harian  : ');readln(t);
   Write ( ' UTS           : ');readln(h);
   Write ( ' UAS           : ');readln(u);
   na := 0.2 *t + 0.3 * h + 0.5 * u;
   write ('Hasil : ',na:2:2);Writeln;

   if na >= 90 then
   write ('A')
   else
  
   if na >= 80 then
   write('B+')
   else

   if na >= 70 then
   write ('B')
   else

   if na >= 60 then
   write ('C+')
   else

   if na >= 50 then
   write ('C')
   else

   if na >= 40 then
   write ('D')
   else
   write ('E');
   writeln;
   end;

end.