uses crt;
var
nabs,nt,uas,nakhir:real;
npm,nm,prostudi,mk,grd,ket:string[25];
grade,smtr:char;
begin
writeln('Nilai Akhir Semester Mahasiswa BUDIDARMA ');
writeln('=========================================');
write ('Nama Mahasiswa :'); readln(nm);
write ('NPM :'); readln(npm);
write ('Program Studi :'); readln(prostudi);
write ('Semeter :'); readln(smtr);
write ('Mata Kuliah :'); readln(mk);
write ('Masukan Nilai Absen :'); readln(nabs);
write ('Masukan Nillai Tugas :'); readln(nt);
write ('Masukan Nilai UTS :'); readln(uts);
write ('Masukan Nilai UAS :'); readln(uas);
nakhir:=(0.15*nabs)+(0.15*nt)+(0.35*uts)+(0.4*uas);
if (akhir >=80 ) and (nakhir <=99.99) then
grade := 'A'
else if (nakhir >= 70) and (nakhir <=79.99) then
grade := 'B'
else if (nakhir >= 60) and (nakhir <=69.99) then
grade := 'C'
else if (nakhir >= 50) and (nakhir <=59.99) then
grade := 'D'
else if (nakhir >= 40) and (nakhir <=49.99) then
grade := 'E'
else if (nakhir >= 30) and (nakhir <=0) then
grade := 'F';
case grade of
'A' : ket := 'Lulus sangat memuaskan';
'B' : ket := 'Lulus dengan baik';
'C' : ket := 'Lulus dengan cukup';
'D' : ket := 'Gagal';
'E' : ket := 'Tekapar';
'F' : ket := 'Ke laut aja';
end;
writeln;
writeln('Mahasiswa yang bernma :',nm);
writeln('Dengan npm :',npm);
writeln('Mendapat nilai akhir :',nakhir);
writeln('Dan gradenya adalaah :',grade);
writeln('Keterangan :',ket);
writeln;
writeln('*****RIZKI DERMAWAN*****');
readln;
donecrt;
end.
