Codigo com erro

[edinho.al]

bom dia gente estou com um probleminha nesse codigo ao qual não consigo encontrar o erro alguem pode me ajudar por favor..

Obrigado a todos

@nota;

for ($i = 0; $i < 4;$i++){

print "entre com nota\n";

$nota[$i] = <STDIN>;

chomp $nota[$i];

}

$media = (($media) + ($nota[$i]))/4 ;

if ($media < 5){

print "aluno reprovado";

}

if ($media > 7){

print "aluno aprovado";

}

print "$media:\n";

[gabriela_goes]

$media = (($media) + ($nota[$i]))/4 ;

coloque essa linha dentro da chave do FOR

e não esqueça de iniciar a variável $media com zero..