code

program baitap;

uses crt;

var a,b:longint;

begin

Write('chieu cao cua hai bn');

read(a,b);

if a>b then write('a cao hon b');

if a<b then write('b cao hon a');

if a=b then write('a cao bang b');

readln;

readln;

end.

BONUS CÁCH LÀM NÈ!

uses crt;

var a,b,i,tam:word;

begin

clrscr;

write('nhap chieu cao cua Long:');readln(a);

write('nhap chieu cao cua Trang:');readln(b);

tam:=a;

while a<b do

begin

i:=i+1;

a:=b;

end;

if tam=b then write('Hai bn cao = nhau');

if i=0 then write('Trang chan ngan nguoi thut nhu nguoi thieu pt nen lun hon Long');

if i=1 then write('Long hoi thieu phat trien hon Trang');

readln

end.

CÁI NÀY LÀM CHO VUI THÔI NHA!