-Xác định bài toán
+Input: cân nặng của An và Minh
+Output: An nặng hơn hoặc Minh nặng hơn
-Thuật toán
+B1: Nhập cân nặng An, Minh
+B2: Nếu An > Minh thì thông báo An nang hon
+B3: Nếu Minh > An nặng hơn thì thông báo Minh nang hon
+B4: Kết thúc thuật toán
uses crt;
var an,minh:byte;
begin
clrscr;
write('Nhap can nang cua ban An: ');readln(an);
write('Nhap can nang cua ban Minh: ');readln(minh);
if an > minh then writeln('Ban An nang hon') else writeln('Ban Minh nang hon');
readln
end.
