TUGAS PASCAL IF ELSE

Program ABDIMAULANA_141510123;

var
      nama,nhuruf:string;
      nilai,absen,tugas,uts,uas:integer;
      npm:longint;
begin
      writeln('Nilai Akhir Mahasiswa Semester Ganjil');
      writeln('|==================================|');
      write  ('| Masukkan Nama    : ');readln(nama);
      write  ('| Masukkan Npm     : ');readln(npm);
      writeln('|==================================|');
      writeln('|*****Masukkan Nilai Mahasiswa*****|');
      writeln('|==================================|');
      write  ('| Masukkan Nilai Kehadiran  : ');readln(absen);
      write  ('| Masukkan Nilai Tugas      : ');readln(tugas);
      write  ('| Masukkan Nilai UTS        : ');readln(uts);
      write  ('| Masukkan Nilai UAS        : ');readln(uas);
      writeln('|==================================|');
      nilai:=(20*absen + 25*tugas + 25*uts + 30*uas) div 100;
     
      if nilai>=80 then
      nhuruf := 'A';
      if (nilai>=65) and (nilai<=79) then
      nhuruf := 'B';
      if (nilai>=41) and (nilai<=64) then
      nhuruf := 'C';
      if (nilai>=26) and (nilai<=40) then
      nhuruf := 'D';
      if nilai<=25 then
      nhuruf := 'E';
     
      writeln;
      writeln;
      writeln('|==================================|');
      writeln('| Hasil Nilai Akhir Semester Ganjil');
      writeln('|==================================|');
      writeln('| Nama Mahasiswa    : ',nama);
      writeln('| NPM Mahasiswa     : ',npm);
      writeln('|----------------------------------|');
      writeln('| Perolehan Nilai adalah  : ',nilai);
      writeln('| Perolehan Indeks adalah : ',nhuruf);
      writeln('|==================================|');
      writeln('|<<<[ABDI MAULANA] | [141510123]>>>|');
      writeln('|==================================|');
      Writeln;
      Readln;
end.