WriteLn (' ');
 mediafinal := (((((port10 + port11 + port12)/3 *0.6 + (exampt/10 *0.4)) +  (((mat10 + mat11 + mat12)/3 *0.6 + (exammat/10 *0.4) +  (((opc110 + opc111)/2 *0.6 + examop1*0.4) + ((((opc210 + opc211)/2*0.6) + examop2*0.4)) + ((filo10 + filo11)/2) +  ((le10 + le11)/2) + opc112 + opc212) / 8 )
        If respostaef = 's'  Then
         Begin
                     mediaafinal := (((((port10 + port11 + port12)/3)* 0.6) + ((exampt/10)*0.4)) +  ((((mat10 + mat11 + mat12)/3)* 0.6) + ((exammat/10)*0.4)) +  ((((opc110 + opc111)/2)* 0.6) + (examop1*0.4)) + ((((opc210 + opc211)/2)* 0.6) + )examop2*0.4() +  ((filo10 + filo11)/2) +  ((le10 + le11)/2) + (opc112) + (opc212) + ((ef10 + ef11 + ef12)/3) ) /9;
           End;