Thuật toán:

B1: nhập a,b

B2: nếu a>b thì in ra màn hình b trc a sau, nếu ko thì in ra màn hình a trc b sau (bởi vì ko giảm tức là tăng mà)

B3: kết thúc

Vt chg trình:

uses crt;

var a,b:integer;

begin

write('nhap a:');readln(a);            //Nhập a và b

write('nhap b:');readln(b);

if a>b then write('',b,'  ',a)

else write('',a,'      ',b);                //In ra màn hình a và b theo thứ tự ko giảm

readln;          //Chạy chương trình

end.              //Kết thúc

* Mô tả thuật toán :

- Bước 1 : nhập hai số a và b

- Bước 2 : nếu a > b thì in ra lần lượt giá trị b và a

- Bước 3 : nếu a < b thì in ra lần lượt giá trị a và b

- Bước 4 : kết thúc

* Viết chương trình :

program sksk;

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap gia tri a :');readln(a);

write('nhap gia tri b :');readln(b);

if a < b then writeln('thu tu khong giam la :', a:4, b:4);

if a > b then writeln('thu tu khong giam la :', b:4, a:4);

readln

end.