TUGAS PASCAL CASE OF

Program ABDIMAULANA_141510123;

var
      nama,ket: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;
     
      case nilai of
      80..100 :ket := ('A');
      65..79  :ket := ('B');
      41..64  :ket := ('C');
      26..40  :ket := ('D');
      else
      ket := ('E');
      end;
     
      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 : ',ket);
      writeln('|==================================|');
      writeln('|<<<[ABDI MAULANA] | [141510123]>>>|');
      writeln('|==================================|');
      Writeln;
      Readln;
end.