Giải các bài toán ứng dụng cấu trúc điều kiện

Bài 1: Nhập vào 3 số. Sắp xếp tăng và giảm.
Bài giải:
uses crt;
var a,b,c,x,y,z:integer;
(*****)
procedure sx(var a,b:integer);
var tam:integer;
(******)
begin
     if a>b then
 begin
     tam:=a;
     a:=b;
     b:=tam;
 end;
end;
(*****)
begin
clrscr;
      write('Nhap so 1:');readln(a);
      write('Nhap so 2:');readln(b);
      write('Nhap so 3:');readln(c);
      x:=a;
      y:=b;
      z:=c;
      writeln('Sap xep tang:');
      if a>b then sx(a,b);
      if b>c then sx(b,c);
      if a>b then sx(a,b);
      writeln(a,'<',b,'<',c);
      writeln('Sap xep giam:');
      if x>y then sx(x,y);
      if y>z then sx(y,z);
      if x>y then sx(x,y);
      writeln(z,'>',y,'>',x);
readln;
end.

Bài 2: Viết chương trình nhập 2 số a và b và kiểm tra xem a có phải là ước của b hay không và ngược lại.
Bài giải:
uses crt;
var a,b:integer;
begin
clrscr;
     write('Nhap so thu nhat:');readln(a);
     write('Nhap so thu hai:');readln(b);
     if a mod b = 0 then writeln(b,' la uoc cua ',a,'.')
        else writeln(b,' ko la uoc cua ',a,' .');
     if b mod a = 0 then writeln(a,' la uoc cua ',b,' .')
        else writeln(a,' ko la uoc cua ',b,' .');
readln;
end.

sao gui it bai tap the

bài 1 :
uses crt;
var a,b,c,x,y,z:integer;
(*****)
procedure sx(var a,b:integer);
var tam:integer;
(******)
begin
if a>b then
begin
tam:=a;
a:=b;
b:=tam;
end;
end;
(*****)
begin
clrscr;
write('Nhap so 1:');readln(a);
write('Nhap so 2:');readln(b);
write('Nhap so 3:');readln(c);
x:=a;
y:=b;
z:=c;
writeln('Sap xep tang:');
if a>b then sx(a,b);
if b>c then sx(b,c);
if a>b then sx(a,b);
writeln(a,'<',b,'<',c);
writeln('Sap xep giam:');
writeln (c,'>',b,'>',a);
readln
end.

huynhhan952@yahoo.com đã viết:

bài 1 :
uses crt;
var a,b,c,x,y,z:integer;
(*****)
procedure sx(var a,b:integer);
var tam:integer;
(******)
begin
    if a>b then
begin
    tam:=a;
    a:=b;
    b:=tam;
end;
end;
(*****)
begin
clrscr;
     write('Nhap so 1:');readln(a);
     write('Nhap so 2:');readln(b);
     write('Nhap so 3:');readln(c);
     x:=a;
     y:=b;
     z:=c;
     writeln('Sap xep tang:');
     if a>b then sx(a,b);
     if b>c then sx(b,c);
     if a>b then sx(a,b);
     writeln(a,'<',b,'<',c);
     writeln('Sap xep giam:');
     writeln (c,'>',b,'>',a);
     readln
     end.
       

Cách giải này cho kết quả đúng và gọn hơn bài giải ở trên. Cảm ơn bạn!