Code Dasar Pascal Login

program afif55;
uses wincrt;

var

UAS,TUGAS,UTS,a:integer;
NILAI:real;
GRADE,KETER:string;



begin

write('masukan nilai uts:');read(UTS);
write('MAsukan Nilai Tugas:');read(TUGAS);
write('MAsukan Nilai UAS:');Read(UAS);

NILAI:=(2*UAS+TUGAS+UTS)/4;

begin

case NILAI of

91..100: GRADE:='A';
81..90: GRADE:='B';
71..80: GRADE:='C';
61..70: GRADE:='D';
0..60: GRADE:='E'

end;

write(grade);

end.