*Xác định bài toán:

- I: Nhập M,N nguyên

- O: Xuất kết quả so sánh M và N

*Các bước thực hiện:

- B1: Nhập M,N nguyên

-B2: Nếu M=N thì nhập lại M,N

-B3: Nếu M>N thì xuất kết quả "M lớn hơn N" và kết thúc

-B4: Nếu M<N thì xuất kết quả "Mnhỏ hơn N" và kết thúc

-B5: Kết thúc thuật toán.

Input: 2 số nguyên dương M,N

Output: kết quả so sánh của 2 số nguyên dương M,N

Thuật toán:

B1: Nhập 2 số nguyên dương M,N

B2: Nếu M>N thì in ra màn hình 'M lon hon N' và chuyển đến B5

B3: Nếu M<N thì in ra màn hình 'M be hon N' và chuyển đến B5

B4: Nếu M=N thì in ra màn hình 'M bang N'

B5: Kết thúc.

Chương trình:

program so_sanh;
uses crt;
var m,n:integer;
begin
    clrscr;
    write('Nhap M,N: ');   readln(m,n);
    if m>n then write('M lon hon N');
    if m<n then write('M be hon N');
    if m=n then write('M bang N');
    readln;
end.