problema con programa en Pascal

[SXF]

Buenas tengo un problemilla con un programa en pascal este es el algoritmo:

Código (pascal) [Seleccionar] Expandir

program ejemplo2;

var
 nota:integer;

begin

read(nota);

   case nota of
     '20': writeln('M. honor');
      '19','18': writeln('Sobresaliete');
      '17','16': writeln<'Notable');
      '15','14': writeln('Aprobado');
   else writeln('Suspenso');

   end

  end.

no se por que me tira error , lo que hace es sencillo comparar notas () utilizo el frepascal.

[Garfield07]

      '17','16': writeln<'Notable');


no se por que me tira error , lo que hace es sencillo comparar notas () utilizo el frepascal.

1) Por que no usas esto:

Código (pascal) [Seleccionar] Expandir

        '17','16': writeln('Notable'); como en los demas?
2) Podrias explicar  tu error, al menos..

[SXF]

me tira muchos errores   Nose creo que el analisis de casos esta mal..lo que quiero hacer es compara las notas si es 20 (sobresaliente ) si es 19 o tal ... y asi...

[Garfield07]

Postea los errores, no una foto. No se ve nada bien...

[Khronos14]

Así a simple vista, ya te digo yo que te faltan los "uses". Además, con read() estás leyendo un integer y en el case..of estás haciendo las comparaciones como si fuera una cadena.

Saludos.

[SXF]

gracias a todos ,el error estaba en que no hay que poner '' con numeros pero si con letras..las librerias no hace falta usarlas aki..

[skapunky]

Bieeeeen una pregunta de pascal, allá va, prueba lo siguiente:

Código (pascal) [Seleccionar] Expandir

program ejemplo2;
uses crt;
var
  nota:integer;

begin

read(nota);

    case nota of
       '20': writeln('M. honor');
       '18'..'19': writeln('Sobresaliete');
       '16'..'17': writeln<'Notable');
       '14'..'15': writeln('Aprobado');
    else
       writeln('Suspenso');
     end
end.

No tengo el compilador en este ordenador, pero el codigo debería funcionar.

[Khronos14]

skapunky, SFX ya dijo que lo solucionó. Además tu código está mal.

Código (pascal) [Seleccionar] Expandir

program ejemplo2;

uses crt;

var
  nota: integer;
begin

read(nota);

    case nota of
       20: writeln('M. honor');
       18,19: writeln('Sobresaliete');
       16,17: writeln('Notable');
       14,15: writeln('Aprobado');
    else
       writeln('Suspenso');
     end;
end.

[skapunky]

Cierto, se me colaron las comas al copiar el codigo original, pero en turbo pascal se puede poner un rango de numero de la siguiente manera:

1..n

Lo he probado y funciona en delphi 6 enterprise.