uses crt;
var a,b,c,d:real;
begin
clrscr;
write('Nhap chieu cao ban Hoang: '); readln(a);
write('Nhap chieu cao ban Minh: '); readln(b);
write('Nhap chieu cao ban Duc: '); readln(c);
write('Nhap chieu cao ban Long: '); readln(d);
if (a>b) and (a>c) and (a>b) then write('Ban Hoang cao nhat voi chieu cao la: ',a:0:2) else
if (b>a) and (b>c) and (b>d) then write('Ban Minh cao nhat voi chieu cao la: ',b:0:2) else
if (c>a) and (c>b) and (c>d) then write('Ban Duc cao nhat voi chieu cao la: ',c:0:2) else
if (d>b) and (d>c) and (d>a) then write('Ban Long cao nhat voi chieu cao la: ',d:0:2);
readln
end.

- Thuật toán :

+ Bước 1 : Nhập a, b, c, d

+ Bước 2 : Max ← a, S ← 'Hoang'

+ Bước 3 : Nếu b > Max thì Max ← b, S ← 'Minh'

+ Bước 4 : Nếu c > Max thì Max ← c, S ← 'Duc'

+ Bước 5 : Nếu d > Max thì Max ← d, S ← 'Long'

+ Bước 6 : In ra giá trị Max, S rồi kết thúc

- Chương trình : 

uses crt;

var a, b, c, d, Max : real; S : string;

begin

clrscr;

write('Nhap chieu cao Hoang, Minh, Duc, Long : ');

readln(a, b, c, d);

Max := a; S := 'Hoang';

if b > Max then

    begin

        Max := b; 

        S := 'Minh';

    end;

if c > Max then 

    begin

        Max := c;

        S := 'Duc'; 

    end;

if d > Max then

    begin

        Max := d; 

        S := 'Long'; 

    end;

write('Trong 4 ban do, thi ban ', S ,' cao nhat, voi chieu cao la ', Max : 2 : 2);

readln

end.