lets STUDY

program nilai_makul;
uses wincrt;
var A, AB, B, BC, C, D, E : string;
 i:integer;
 begin
 writeln ('nilai mata kuliah= ') ;readln (i);
 if i<0 then write ('tidak terdefinisi') else if i>0 then
 if (i)<41 then write ('E')
 else
 if (i)<61 then write ('D')
 else   
 if (i)<66 then write ('C')
 else
if (i)<71 then write ('BC')
else
if (i)<76 then write ('B')
else
if (i)<81 then write ('AB')
else
if (i)<101 then write ('A')
end.