PRKomp

program if3kasus;
uses crt;
var ni:char;
nuts,nuas:integer;
na:real;
begin
clrscr;
write('masukkan nilai uts:');readln(nuts);
write('masukkan nilai uas:');readln(nuas);
na:=(0.6*nuas)+(0.4*nuts);
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.