Pascal/Turbo Pascal - Notas de alumnos

Program Notas;

Uses crt;

Var x:integer;

Begin

Clrscr;

Writeln(‘Ingrese notas menres que 20’);

if ((x>=19) or (x<= 20)) then

Writeln(‘Su Nota es “A”’)

Else

if ((x>=16) or (x<= 18)) then

Writeln(‘Su Nota es “b”’)

Else

if ((x>=13) or (x<= 15)) then

Writeln(‘Su Nota es “c”’)

Else

if ((x>=10) or (x<= 12)) then

Writeln(‘Su Nota es “d”’)

Else

if ((x>=1) or (x<= 9)) then

Writeln(‘Su Nota es “e”’)

Readln;

End.

{revisa el error que tenias}

Program Notas;

Uses crt;

Var x:integer;

Begin

Clrscr;

Writeln('Ingrese notas menres que 20 : ');

readln(x);

if ((x >= 19) or (x = 20)) then

Writeln('Su Nota es A')

Else

if ((x >= 16) or (x = 18)) then

Writeln('Su Nota es b')

Else

if ((x >= 13) or (x = 15)) then

Writeln('Su Nota es c')

Else

if ((x >= 10) or (x = 12)) then

Writeln('Su Nota es d')

Else

if ((x >= 1) or (x = 9)) then

Writeln('Su Nota es e');

Readln;

End.