Pessoal,
Está disponível no link a seguir arquivo com o resultado da primeira prova. Existe chance ainda para todo mundo. Lembrem que a segunda avaliação é acumulativa, logo:
if(nota_prova_2 > nota_prova_1) then
nota_prova_1 := nota_prova_2;
if ( (nota_prova_1 + nota_prova_2)/2 >= 6.0) then
writeln('Passei em algoritmo. Blz.')
else
writeln('Vou para a final. Mas nao vou desistir');
http://www.4shared.com/document/3iNP9u3i/Resultado_ProvaI_20102_Algorit.html