uses crt;
var a,b,c,m: real;
bcn: char;
begin
clrscr;
write ('nhap chieu cao cua ban a: '); readln (a);
write ('nhap chieu cao cua ban b: '); readln (b);
write ('nhap chieu cao cua ban c: '); readln (c);
m:=a;
bcn:='a';
if m<=b then
begin
m:=b;
bcn:='b';
end;
if m<=c then
begin
m:=c;
bcn:='c';
end;
writeln ('ban ',bcn,' cao nhat');
readln;
end.