Решение задач: Решение задач в среде Mathcad

Необходимо по данной задаче написать программу в среде Mathcad.
Вот программа для этой задачи в Pascal ABC:
const
n = 20;

Var
a: array[1..n*2] of integer;
i: integer;
j: integer;
min: integer;
f_i, f_j : integer;
Begin
Randomize;
writeln('Исходный массив');
for i:= 1 to 2*n do
begin
a[i] := random(19999)-9999;
write(a[i], ' ');
end;

writeln();
min := a[1] + a[2*n];
f_i := 1;
f_j := 2*n;

j:=0;
for i := 1 to n do
begin
if min > (a[i] + a[2*n - j]) then
begin
min := (a[i] + a[2*n - j]);
f_i := i;
f_j := 2*n-j;
end;
j := j+1;
end;

writeln('Минимум по условиям задачи = ', min);
writeln('Он получился из элементов № ', f_i, ' и ', f_j);

end.