uses crt;

var a,b,c: integer

writeln('Nhap chieu cao cua ban a: (cm)');

readln(a);

writeln('Nhap chieu cao cua ban b: (cm)');

readln(b);

writeln('Nhap chieu cao cua ban c: (cm)');

readln(c);

if a>b>c then writeln('Ban a>b>c ') else

if a>c>b then writeln('Ban a>c>b) else

if b>c>a then writeln('Ban b>c>a') else

if b>a>c then writeln('Ban b>a>c') else

if c>a>b then writeln('Ban c>a>b') else

if c>b>a then writeln('Ban c>b>a') else

if a=b=c then writeln('Ba ban cao bang nhau') else

if a=b>c then writeln('Ban a=b>c) else

if a=c>b then writeln('Ban a=c>b') else

if b=c>a then writeln('Ban b=a>a');

readln;

end.

var a,b,c:real;
begin
write('nhap chieu cao 3 ban:');
read(a,b,c);writeln;
if a>b then writeln('a cao hon b');
if a>c then writeln('a cao hon c');
if b>a then writeln('b cao hon a');
if b>c then writeln('b cao hon c');
if c>a then writeln('c cao hon a');
if c>b then writeln('c cao hon b');
if a=b then writeln('a bang b');
if b=c then writeln('b bang c');
if c=a then writeln('c bang a');
readln;
end.