C++ :

#include <bits/stdc++.h>
using namespace std;
long long a[4];
int main()
{
    for(int i=1;i<=3;i++)
    cin>>a[i];
    sort(a+1,a+4);
    for(int i=1;i<=3;i++)
    cout<<a[i]<<" ";
    return 0;
}

Pascal :

var a,b,c,t:longint;
begin
  readln(a,b,c);
  if a>b then begin t:=a; a:=b; b:=t; end;
  if a>c then begin t:=a; a:=c; c:=t; end;
  if b>c then begin t:=b; b:=c; c:=t; end;
  writeln(a,' ',b,' ',c,' ');
end.