Notas Secundário Em que nível é que te encontras?

Ver código Ver imagens

Código

Program notasdosecundario ;
 var notas:integer;
 var tecla:char; 
 Begin
 repeat
 writeln ('introduz a tua nota');
 
 
 readln(notas);
 case notas of
 				1,2,3,4:
 					Begin
				 		writeln('Muito Mau');
				 		writeln('vai estudar seu cancro assado');
				 	end;
						 
 				5,6,7,8,9:
				  	Begin
				            writeln('Mau');
				            writeln('deves pensar que es o maior, vai mas e estudar');
				      end;      
 				
 				10,11,12,13:writeln('Suficiente');
 				14,15,16:writeln('Bom');
 				17,18,19,20:writeln('Muito Bom');
 			else
 				writeln('nota impossível');
 	end;
 writeln('Deseja sair? S/N');
 readln(tecla);
 until tecla='S'	
  
 End.

Imagens