Var z:array[1..1000] of longint;
n, i, min:longint;
Begin
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
min:= z[1];
End;
For i:=1 to n do begin if min>z[i] then min:=z[i];
End.;
Writeln('So nho nhat la ',min);
End.
Bạn thử kiểm tra lại nhé!