Составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 20 и находится минимальный элемент массива и его индекс

const  n=10;var  i,im:integer;  a:array[1..10] of integer;  begin  Randomize;  im:=1;  for i:=1 to n do begin    a[i]:=Random(21)+1;    Write(a[i],' ');    if a[i]<a[im] then im:=i    end;  Writeln;  Writeln('Минимальный элемент a[',im,']=',a[im])end.Пример20 13 16 7 9 4 21 13 2 10 Минимальный элемент a[9]=2