Program Pzim ;
///by:gil
var
p,s,t,q:integer;
x:real;
 Begin
 writeln('Escreva as 4 notas bimestrais do aluno');
 readln(p,s,t,q);
 x:=((p+s+t+q)/4);
 if x>=10 then
 writeln('A media do aluno é: ',x:3:2,' E está Aprovado!')
 else
 writeln('A media do aluno é: ',x:3:2,' E está Reprovado!');
 

  
 End.