viết ct nhập vào 4 số a,b,c,d. sắp xếp theo thứ tự từ bé đến lớn ( dùng pacal, e vẫn chx hc đến câu lệnh for...do nên đừg vt cái ct liên quan đến nó' ) giúp e vs akkk

****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();
}