Дан массив x(10). Найти номер min элемента массива. Умножить на этот индекс все элементы.

var  n, i, mn:integer;  a:array [1..10] of integer;begin  writeln('vvedite massiv');  for i:=1 to 10 do  readln(a[i]);  writeln('Ishodnii massiv');  for i:=1 to 10 do  write(a[i],' ');  writeln();  mn:=1;  for i:=1 to 10 do  if a[mn]>a[i] then mn:=i;  for i:=1 to 10 do  a[i]:=a[i]*mn;5  writeln('Massiv posle obrabotki');  for i:=1 to 10 do  write(a[i],' ');  writeln();end.