var
nilai: integer
grade: string
begin
writeln('nilai kamu:');readln('nilai')
case nilai of
0..25 : Grade :='E'
26..55 : Grade :='D'
56..75 : Grade :='C'
76..85 : Grade :='B'
else
Grade :='A';
end;
writeln('Grade=',Grade);
end.