Se intendi l'ultima parte del programma è
codice:
writeln; writeln ('Il tuo voto Š:'); textcolor (4); case VOTO of 35 : writeln ('Perfetto! non hai fatto nemmeno un errore! 10 e lode'); 36..40 : writeln ('Sei andato bene! hai sbagliato poche volte! ti do 8 e mezzo '); 41..43 : writeln ('bhe, non c''e'' male non, c''e'' male ti do 7'); 44..48 : writeln ('hai fatto un discreto numero di errori! non è un risultato brillante ti do 6'); 49..55 : writeln ('Hai fatto parecchi di errori! devi migliorare ti do 5'); 56..65 : writeln ('hai fatto troppi errori! va malissimo ti do 4'); 66..70 : writeln ('Com''è possibile! sei andato malissimo! peggio del peggio! ti do 2'); 71..100: writeln ('Non Ho parole! non ho mai visto un risultato cosi scadente ti do 0 spaccato!'); else writeln ('Non classificabile'); end; textcolor (15); writeln; writeln ('La prima parte delle coralimpiadi è terminata... ora puoi sbloccare la seconda parte!'); writeln ('La password e'' ornitorinco'); readln(); end.