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.4*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.