uses crt;
var a:array [1..100] of real;
n,i: integer;
m: real;
Begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,': '); readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if min>a[i] then min:=A[i];
write('So nho nhat: ',min:1:2);
readln;
End.