Program can_nang

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.

-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.