Напишите программу, которая находит среди элементов массива, состоящего из n элементов, наименьший элемент и его порядковый номер.

var a:array[1..1000000]of integer; i,min,n,c:integer;    begin       readln(n);       for i:=1 to n do       begin        read(a[i]);          if i = 1 then          min:=a[i];        if a[i]