uses crt;
var i,j,v,t,ta,tam:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('mon van:');readln(v);
  write('mon toan:');readln(t);
  write('mon tieng anh:');readln(ta);
  if((v+t+ta)div 3>=9)then writeln('ban la hoc sinh:gioi');
  if((v+t+ta)div 3>=7)then writeln('ban la hoc sinh:kha');
  if((v+t+ta)div 3>=5)then writeln('ban la hoc sinh:trung binh');
  if((v+t+ta)div 3>=3)then writeln('ban la hoc sinh:yeu');
  a[1]:=v;
  a[2]:=t;
  a[3]:=ta;
  for i:=1 to 3 do
   for j:=1 to i do
    if(a[i]>a[j])then
        begin
         tam:=a[i];a[i]:=a[j];a[j]:=tam;
        end;
  for i:=1 to 3 do write(a[i],' ');
 readln;
end.

uses crt;
var  a,b,c,tam:real;n:array[1..100]of real;i,j:longint;
begin
clrscr;
write('ANh:');readln(a);
write('van:');readln(b);
write('toan:');readln(c);
if((a+b+c)/3>=8)then writeln('Gioi')else if((a+b+c)/3>=6.5)then writeln('Kha')else
if((a+b+c)/3>=3.5)then writeln('Trung binh')else writeln('Yeu');
n[1]:=a;
n[2]:=b;
n[3]:=c;
for i:=1 to 3 do
for j:=i to 3 do
if(n[i]<n[j])then
begin
tam:=n[i];
n[i]:=n[j];
n[j]:=tam;
end;
for i:=1 to 3 do write(n[i],' ':8);
readln;
end.