program SNN;
uses crt;
var n, i, Min: integer;
A: ARRAY [1..100] OF integer;
begin
write('Nhap do dai cua mang, n = '); readln(n);
for i := 1 to n do
begin
write('So A[',i,'] la: '); read(A[i]);
end;
min := A[1];
for i := 1 to n do
If A[i]<min then min:=A[i];
writeln('So nho nhat trong day la: ',Min);
readln
end.