các bước làm:

B1: nhập chieu cao bạn 1, bạn 2;

B2: nếu b1>b2 thì b1 cao hơn 

B3: ngược lại b2>b1 thì bạn 2 cao hơn;

chương trình:
program bai_giai;

uses crt;

var b1,b2:lognint;

begin

clrscr;

write('nhap tuoi ban 1:');readln(b1);

write('nhap tuoi ban 2:');readln(b2);

if(b1>b2)then write('ban 1 nhieu tuoi hon')else 

if(b2>b1)then write('ban 2 nhieu tuoi hon');

readln;

end.

*Ý nghĩa*

nếu long>trang thì bạn long cao hơn

hoặc nếu long<trang thì bạn trang cao hơn hoặc hai bạn cao bằng nhau

** chương trình**

uses crt ;{khai bao thu vien crt}

var khoa,lyna:real;   khai bao bien, ten 2 ban trong lop minh}

begin {bat dau chuong trinh}

clrscr;{xoa man hinh}

write('nhap tuoi ban khoa: ');

readln(khoa);

{nhap tuoi ban thu nhat}

write('nhap tuoi ban lyna: ');

readln(lyna);

{nhap tuoi ban thu hai}

if khoa>lyna {so sanh} then writeln('ban khoa lon tuoi hon ban lyna')

else

if khoa<lyna then writeln('ban lyna lon tuoi hon ban khoa')

else writeln('khoa va lyna bang tuoi');

readln

end.