program oken;
uses crt;
type diem=0..10;
var n: array [1..10] of diem;
i,j,tam:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('Nhap diem ban thu ',i,': ');
readln(n[i]);
end;
writeln('xet loai cac ban:');
for i:=1 to 10 do
if n[i]>=5 then writeln(' ban thu ',i,' dau diem TB.')
else writeln(' ban thu ',i,' thi lai.');
for i:=1 to 9 do
for j:=i+1 to 10 do
if n[i]>n[j] then
begin
tam:=n[i];
n[i]:=n[j];
n[j]:=tam;
end;
write('sap xep theo thu tu tang dan: ');
for i:=1 to 10 do
write(n[i],' ');
readln;
end.