CLASSIFICAÇÃO DE NOTAS

O CODIGO

Program notas_secundario;
var
n1:integer;
Begin
repeat
writeln ('introduza a sua nota.');
read(n1);
case n1 of
1..4:
begin
writeln('Muito mau');
writeln('Vai estudar malandro');
end;
5..9:
begin
writeln('Mau');
writeln('Vai estudar malandro');
end;
10..13:writeln('sufeciente');
14..16:writeln('Bom');
17..20:writeln('Muito bom');
else
writeln('nota invalida');
end;
until n1=0;
End.

O RESULTADO FINAL