var i, n, S, TB : integer;
diem : array [1..100] of real;
begin
write ( ' so hoc sinh la n = '); readln (n);
writeln ('nhap so diem');
for i :=1 to n do
begin
readlm (diem[i]);
end;
begin
for i:=1 to n do
if diem[a]>5 then
S:= S + diem[i];
TB:= S/n;
writeln ('diem trung binh cac so tren 5 la' TB);
end;
End.