uses crt;
var N:byte;
A:array[1..250] of integer;
i,min,csmin:integer;
begin
clrscr;
write('Nhap N: '); 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
begin
min:=A[i];
csmin:=i;
end;
writeln('Min la: ',min);
writeln('Chi so cua Min la: ',csmin);
readln
end.