Program resultado;
     Var N1,N2,N3 : Real;
             S, M : Real;
     Begin
         N1:=7.5;
         N2:=5.5;
         N3:=4.5;
         S:=N1+N2+N3;
         M:=S/3;
         If (M >= 5) Then
             Writeln('aprovado')
         Else
             Writeln('reprovado');
     End.