program univercidade;
uses crt;
var

aux,m, n1, n2, n3: real;


begin
clrscr;
m:=0;
begin
writeln('digite a primeira nota');
readln(n1);
writeln('digite a segunda nota');
readln(n2);
Writeln('digite a terceira nota');
readln(n3);

if n1 < n2 then
begin
aux:=n1;
n1:=n2;
n2:=aux;
end;

if n1 < n3 then
begin
aux:=n1;
n1:=n3;
n3:=aux;
end;

if n2 < n3 then
begin
aux:=n2;
n2:=n3;
n3:=aux;
end;

m:= (n1+n2)/2;
writeln('sua m‚dia ‚:', m:2:1);

if m < 5 then
writeln('reprovado')
else
if m < 7 then
writeln('recupera‡Æo')
else
write ('aprovado');
delay(5000)
end;
end.