uses wincrt;
var
nama:string;
nim:longint;
nilaiuts,nilaiuas,nilaitugas,nilaiakhir:real ;
const
persentugas=0.2;
persenuts=0.3;
persenuas=0.5;
begin
write('masukan nama :');
readln(nama);
write('masukan NIM :');
readln(nim);
write('masukan nilai tugas :');
readln(nilaitugas);
write('masukan nilai uts :');
readln(nilaiuts);
write('masukan nilai uas :');
readln(nilaiuas);
nilaiakhir:=(nilaitugas*persentugas)+(nilaiuts*persenuts)+(nilaiuas*persenuas);
begin
writeln(nama);
writeln(nim);
writeln('DENGAN NILAI ANGKA :',nilaiakhir:2:2);
write('DENGAN NILAI HURUF :');
if nilaiakhir <= 40 then
write('E')
else
if nilaiakhir <= 60 then
write('D')
else
if nilaiakhir <= 75 then
write('C')
else
if nilaiakhir <=85 then
write('B')
else
if nilaiakhir <=101 then
write('A');
writeln;
end;
write('DAN DINYATAKAN :');
if nilaiakhir >= 60 then
write('LULUS')
else
write('TIDAK LULUS');
end.