C :

int main(int argc, char* argv[])
{
  int num[10],i,j,a,k;
  for(i=0;i<10;i++)
  { 
	  scanf("%d",&a);
	  for(j=0;j<i;j++)
		  if(num[j]>a)
	        break;
	 for(k=i;k>j;k--)
		 num[k]=num[k-1];
	 num[k]=a;
  }
  for(i=0;i<10;i++)
	  printf("%d\n",num[i]);
	return 0;
}

C++ :

#include<iostream>
using namespace std;
int a[11];
int main()
{
	for (int i=1; i<=10; i++) cin>>a[i];
	for (int i=1; i<10; i++)	//选择排序
	{
		int k=i;
		for (int j=i+1; j<=10; j++)
			if (a[k]>a[j]) k=j;
		if (k!=i)
		{
			int t=a[k];
			a[k]=a[i];
			a[i]=t;
		}
	}
	for (int i=1; i<=10; i++) cout<<a[i]<<endl;
	return 0;
}

Pascal :

var
 m,n,i,k,x:longint;
 a:array[-1..1000000] of longint;
Procedure qsort(l,r:longint);
var
 i,j,mid,p:longint;
begin
 i:=l; j:=r;
 mid:=a[(i+j) div 2];
 repeat
  while a[i]<mid do inc(i);
  while a[j]>mid do dec(j);
  if i<=j then
   begin
    p:=a[i]; a[i]:=a[j]; a[j]:=p;
    inc(i); dec(j);
   end;
 until i>j;
 if l<j then qsort(l,j);
 if i<r then qsort(i,r);
end;


begin

 for i:=1 to 10 do
  read(a[i]);
 qsort(1,10);
 for i:=1 to 10 do
  writeln(a[i]);
end.