a/thuật toán:

b1: nhập a,b

b2 so sánh a,b và in ra kết quả hợp lí:

    if a>b then writeln ('a>b');

    if a<b then writeln ('a<b');

    if a=b then writeln ('a=b');

b/ chương trình:

uses crt;

var a,b: integer;

begin

clrscr;

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

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

    if a>b then writeln ('a>b');

    if a<b then writeln ('a<b');

    if a=b then writeln ('a=b');

readln;

end.

THUẬT TOÁN:

b1: Nhập số a và số b trên bàn phím

b2: Nếu a>b thì in ra dòng thông báo "số a lớn hơn số b"hoặc ngược lại thì in ra dòng thông báo " số b lớn hơn số a"hoặc "hai bạn bằng nhau"

b3: Kết thúc thực toán

b/ 

Program Tinh_toan;

var a,b,c: integer;

begin

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

If a>b then write('so a lon hon so b');

If b>a then write('so b lon hon so a');

else writeln('hai so cao bang nhau');

readln

end.