PRKomp

program nilaiakhir;
uses crt;
var ni:char;
uts,uas:integer;
na:real;
begin
clrscr;
write('masukkan nilai uts:');readln(uts);
write('masukkan nilai uas:');readln(uas);
na:=(0.6*uas)+(0.6*uts);
if (na>=80) then begin ni='A' end
else if (na>=70) then begin ni='B' end
else if (na>=50) then begin ni='C' end
else if (na>=30) then begin ni='D' end
else begin ni='E' end;
writeln('nilai akhir:',na:0:2);
writeln('nilai indeks:',ni);
readln;
end.