program tim_Min;
var i, N : integer; Min: real;
A: array[1..50] of real;
begin
write ('Hay nhap so hoc sinh trong lop: ');
readln (N) ;
write (' Nhap chieu cao cua tung ban tinh theo m: ')
for i := 1 to N do
begin
write ( 'a[ ' , i , ' ] = ' );
readln (a[i]);
end;
Min := (a[i]);
for i := 2 to N do
if Min < a[i] then Min := a[i];
write (' Min = ' , Min : 5 : 2 );
readln;
end.