Информатика, , язык паскаль, заранее !

program MinNumber

var

 n, a, i, nmin, amin: Integer;

begin

 Write ('Количество чисел: ');

 ReadLn (n);

 nmin := 1;

 amin := MaxInt;

 WriteLn ('Введите ', n, ' чисел:');

 for i := 1 to n do begin

   ReadLn (a);

   if a < amin then begin

     amin := a;

     nmin := i;

   end;

 end;

 WriteLn ('Вывод: ', amin, ' ', nmin);

 ReadLn;

end.