program inputan mahasiswa (TPW)

program inputanmahasiswa;
uses wincrt;
var
   nama         :string ;
   absen        :integer;
   tugas        :integer;
   uts          :integer;
   uas          :integer;
   nilai_akhir  :real;
   grade        :char;
   ket          :string;
begin
     writeln ('masukan nama:');readln(nama);
     writeln ('masukan absen:');readln(absen);
     writeln ('masukan tugas:');readln(tugas);
     writeln ('masukan uts:');readln(uts);
     writeln('masukan uas:');readln(uas);
     nilai_akhir:=(0.2*absen)+(0.15*tugas)+(0.25*uts)+(0.4*uas);
     if nilai_akhir>=85 then grade :='A'
     else if nilai_akhir>=75 then grade:= 'B'
     else if nilai_akhir>=65 then grade:= 'C'
     else if nilai_akhir>=55 then grade:= 'D'
     else grade:= 'E';
     case grade of
     'A' :ket:='lulus memuaskan';
     'B' :ket:='lulus baik';
     'C' :ket:='lulus cukup';
     else ket:='tidak lulus';
     ket:='tidak lulus';end;
     writeln('jadi nilai akhir:',nilai_akhir:0:2);
     writeln('jadi gtade',grade,'dan dinyatakan',ket);
     end.