C++ :

#include<bits/stdc++.h>
using namespace std;
long long a[10];
bool cmp(int x,int y)
{
	return x>y;
}
int main()
{
	cin>>a[1]>>a[2]>>a[3];
    sort(a+1,a+4,cmp);
    cout<<a[1]<<" "<<a[2]<<" "<<a[3];
	
	return 0;
}

Pascal :

var
a,b,c:integer;
begin
read(a,b,c);
if a<b then
 begin
 a:=a+b;
 b:=a-b;
 a:=a-b;
 end;
 if a<c then
 begin
 a:=c+a;
 c:=a-c;
 a:=a-c;
 end;
 if b<c then
 begin
 b:=b+c;
 c:=b-c;
 b:=b-c;
 end; 
write(a,' ',b,' ',c);
end.