program sosanhchieucaocuahaiban; 

uses crt;

var toi , ti: real;

begin

      clrscr;

write('nhapchieucaocuatoi'); readln(toi);

write('nhapchieucaocuati');readln(ti);

if toi>ti then writeln('toi cao hon');

if toi<ti then writeln('ti cao hon');

 else writeln('haibancaobangnhau');

readln

end.

Bạn tí với ai vậy ;-; Mình cho Tèo nhé.

uses crt;
var ti,teo:real;
begin 
clrscr;
   write('Nhap chieu cau ban Teo: ');readln(teo);
   write('Nhap chieu cau ban Ti: ');readln(ti);
   if teo>ti then writeln('Teo cao hon Ti') else
   if teo<ti then writeln('Ti cao hon Teo') else
      writeln('Teo cao bang Ti');
readln
end.