Решите пожалуйста вот эту задачу по паскале abc

// Минимальный элемент в массивеconst n = 10; var   a: array [1..n] of integer;  i,min: integer;begin  // Заполнение массива случайными числами   for i:=1 to n do    a[i] := Random(100);  // Вывод массива   write('Массив a: ');    for i:=1 to n do    write(a[i],' ');  writeln;  // Алгоритм вычисления минимального элемента  min := a[1];  for i:=2 to n do    if a[i]<min then      min := a[i];  writeln('Минимальный элемент в массиве = ',min);  end.