{$codepage UTF8} VAR Calificacion : Integer; BEGIN Write('Ingrese la Calificacion del alumno :'); Readln(Calificacion); Case Calificacion of 90..100 : Writeln('A'); 80..89 : Writeln('B'); 70..79 : Writeln('C'); 60..69 : Writeln('D'); 0..59 : Writeln('E') End; END.