c1:
program ctct;
uses crt;
var a, b: real;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
if a>b then write(a, ' lon hon ', b);
if a<b then write(a, ' nho hon ', b);
if a=b then write(a, ' bang ', b);
readln
end.
c2:
program ctct;
uses crt;
var a, b: real;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
if a>b then write(a, ' lon hon ', b) else
if a<b then write(a, ' nho hon ', b) else
write(a, ' bang ', b);
readln
end.