Найти min в массиве В (I = 1, N).

var a:array[1..1000]of longint; n,m,k,i,l,min:longint;begin min:=maxlongint; readln(n); for i:=1 to n dobegin readln(a[i]); if a[i]<min then min:=a[i];end;writeln(a[i]);readln;end.