Câu 2:
program kaito;
uses crt;
var a, b, c: real;
begin
clrscr;
write('Nhap chieu cao ban thu nhat: '); readln(a);
write('Nhap chieu cao bạn thu 2: '); readln(b);
write('Nhap chieu cao ban thu 3: '); readln(c);
if (a>b) and (b>c) then writeln('ban a cao nhat, ban b cao thu 2, ban c thap nhat') else
if (a>b) and (c>b) and (a>c) then writeln('ban a cao nhat, ban c cao thu 2, ban b thap nhat') else
if (b>c) and (c>a) then writeln('ban b cao nhat, ban c cao thu 2, ban a thap nhat') else
if (b>c) and (a>c) and (b>a) then writeln('ban b cao nhat, ban a cao thu 2, ban c thap nhat') else
if (c>b) and (b>a) then writeln('ban c cao nhat, ban b cao thu 2, ban a thap nhat') else
writeln('ban c cao nhat, ban a cao thu 2, ban b thap nhat');
readln
end.
CHÚC BẠN HỌC TỐT!!!