****Pascal*****

uses crt;
var a,b,c,d,t:longint;
begin
clrscr;
write('a,b,c,d= ');
readln(a,b,c,d);
if a>b then
begin
a:=a+b;
b:=b-a;
a:=a-b;
end;
if a>c then
begin
a:=a+c;
c:=c-a;
a:=a-c;
end;
if a>d then
begin
a:=a+d;
d:=d-a;
a:=a-d;
end;
if b>c then
begin
b:=b+c;
c:=b-c;
b:=b-c;
end;
if b>d then
begin
b:=b+d;
d:=d-b;
b:=b-d;
end;
if c>d then
begin
c:=c+d;
d:=d-c;
c:=c-d;
end;
writeln(a:2,b:2,c:2,d:2);
readln
end.

********C****************

#include <conio.h>
#include <math.h>
#include <stdio.h>
int main ()
{
    int a,b,c,d;
    printf("Nhap 4 so nguyen bat ki:    ");
    scanf("%d%d%d%d",&a,&b,&c,&d);
    if(a>b)
        {
          a=a+b;
            b=a-b;
            a=a-b;
        }
   if(a>c)
        {
          a=a+c;
            c=a-c;
            a=a-c;
        }
    if(a>d)
        {
          a=a+d;
            d=a-d;
            a=a-d;
        }
     if(b>c)
        {
          b=b+c;
            c=b-c;
            b=b-c;
        }
     if(b>d)
        {
          b=b+d;
            d=b-d;
            b=b-d;
        }
     if(c>d)
        {
          c=c+d;
            d=c-d;
            c=c-d ;
        }
    printf( a,b,c,d);
    getch();
}

program bai_giai;
uses crt;
var a,b,c,d,i,j,tam:longint;e:array[1..1000]of longint;
begin
 clrscr;
  write('nhap a,b,c,c:');readln(a,b,c,d);
  e[1]:=a; e[2]:=b; e[3]:=c; e[4]:=d;
  for i:=1 to 4-1 do
   for j:=i+1 to 4 do
    if(e[i]>e[j])then
        begin
         tam:=e[i];
         e[i]:=e[j];
         e[j]:=tam;
        end;
  for i:=1 to 4 do write(e[i],' ');
 readln
end.