Program exercicio_lista1_1 ;
var
n1,n2,n3,n4,media:real;
nota_final:integer;
Begin
Write ('Escreva a primeira nota de zero a dez:');
readln (n1);
Write ('Escreva a segunda nota de zero a dez:');
readln (n2);
Write ('Escreva a terceira nota de zero a dez:');
readln (n3);
Write ('Escreva a quarta nota de zero a dez:');
readln (n4);
media := (n1+n2+n3+n4)/4;
nota_final := round (media);
writeln (' ');
writeln (' ');
case nota_final of
0..7 : begin
writeln ('As notas informadas foram: ',n1:0:2,' , ',n2:0:2,' , ',n3:0:2,' e ',n4:0:2 );
writeln ('A média do aluno é: ', nota_final);
writeln (' O aluno está Reprovado!');
writeln ('Informe notas de zero a dez!');
end;
7..10 : begin
writeln ('As notas informadas foram: ',n1:0:2,' , ',n2:0:2,' , ',n3:0:2,' e ',n4:0:2 );
writeln ('A média do aluno é: ', nota_final);
writeln (' O aluno está Aprovado!');
end;
else
writeln ('Informe notas de zero a dez!');
end;
end.
Fiz esse código básico em pascal ele está rodando normalmente mas, o que eu gostaria de saber é se tem uma maneira de não executar o restante do código se digitar um numero maior que dez. tipo esse else ai só funciona se o valor da Nota_Final for maior que dez.