B1:

uses crt;

var a,b:integer;

begin

write('nhap do dai thanh go lim:');readln(a);

write('nhap do dai thanh go trac:');readln(b);

if a> b then writeln('thanh go lim dai hon') else if a<b then writeln('thanh go trac dai hon') else writeln('2 thanh go dai bang nhau');

readln;

end.

B2:

uses crt;

var x,y:integer;

begin

write('nhap x:');readln(x);

write('nhap y:');readln(y);

if x<y then writeln('x<y');

readln;

end.

Bài 1 : 

uses crt;

var a, b : real;

begin

clrscr;

write('nhap do dai thanh go Lim :');readln(a);

write('nhap do dai thanh go Trac :');readln(b);

if a > b then writeln('do dai thanh go Lim :', a:3:2)

else if a < b then writeln('do dai thanh go Trac :', b:3:2)

else writeln('Hai thanh go dai bang nhau');

readln

end.

Bài 2 : 

uses crt;

var x, y : integer;

begin

clrscr;

write('nhap gia tri x va y :');readln(x, y);

if x < y then writeln('X nho hon Y');

readln

end.