Program hotrotinhoc_hoc24;
var a: array[1..40] of real;
i,n: integer;
max,min: real;
begin
for i:=1 to 40 do
begin
write('Nhap ban thu ',i,': '); readln(a[i]);
end;
max:=0; min:=32000;
for i:=1 to 40 do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln('Chieu cao cua ban thap nhat la : ',min:1:2);
write('Chieu cao cua ban cao nhat la : ',max:1:2);
readln
end.