program b4;
uses crt;
const nmax=250;
var a:array[1..nmax] of integer;
  min,n,i,vitri:integer;
begin
  clrscr;
  writeln('Nhap n: ');readln(n);
  for i:=1 to n do
  begin
    writeln('A[',i,']=');
    readln(a[i]);
  end;
  min:=a[1];
  for i:=1 to n do
  if a[i]<min then
  begin
  min:=a[i];
  vitri:=i;
  end;
  writeln('so nho nhat: ',min,' vi tri: ',vitri);
  readln
end.