Dúvida|Erro Programa que Atribui as Classificações às Notas

[LagMaster]

Boas

Estava a ler a wiki  (ja que ainda nao tinha visto quase nada) e deparei-me com um programa que atribuia a nota (1..10 Insuficiente etc.. ) e achei interessante e fiz um clone para o meu actual sistema de notas.. (mesmo que não sirva de muito pois toda a gente sabe que 45 é nega etc... Só mesmo pela curiosidade de ter aquilo).

Então aqui está:

(Em tudo Similar ao mostrado na wiki, apenas com o nome e o sistema de pontuações alterado)

program notas0a100;
uses crt;
var nota:integer;

begin
     write('Introduza uma nota, de 1% a 100% ');
     readln(nota);
     case nota of
          0..49:writeln('Insuficiente');
          50..74:writeln('Suficiente');
          75..89:writeln('Bom');
          90..100:writeln('Muito Bom');
     end
     else begin
          if (nota<0) then writeln('Reintroduza a nota.. Notas não podem ser menores do que 0%');
          if (nota>100) then writeln('Reintroduza a nota.. Notas não podem ser maiores do que 100%');
     end;
     readln;
end.

O erro é no Else begin diz que em vez do Else deveria estar um ;

Mas eu  já coloquei o tal ; à frente do end que está em cima do Else Begin e nada..

Alguém sabe como o corrigir ??

Cumprimentos

LagMaster

[thoga31]

Retira o End antes do Else. Enganei-me ao fazer o tutorial e pensei que já tinha corrigido... pensei mal. 😕

[LagMaster]

hmm ?

okay já deu  😕

Thanks for the help  😄