ClubPoker-DNA

Menampilkan NA=40% UTS + 60% UAS dan ket( LULUS / TDK LULUS )

LULUS jika NA > 50.Input nama,NIM,UTS,UAS

uas wincrt;

var

nim,nama:string;

uts,uas:integer;

na:real;

begin

write('Nama: ');readln(nama);

write('NIM: ');readln(nim);

write('Nilai UTS: ');readln(uts);

write('Nilai UAS: ');readln(uas);

na:=(40/100*uts)+(60 /100*uas);

writeln('Nilai akhir: ',na:10:2);

if na>50 then write('LULUS') else write('TDK LULUS');

end.