Найдите сумму 3 элемента увеличенного в 2 раза и 10 элемента

Const
  n=63;

var
  M:array[1..n] of integer;
  i:integer;

begin
  Randomize;
  for i:=1 to n do begin
    M[i]:=Random(101)-50;
    Write(M[i],' ')
    end;
  Writeln;
  Writeln('Отысканная сумма равна ',M[3]*2+M[10]+5)
end.

Пример
24 -15 -26 -33 -9 -4 -40 -33 -24 -48 -27 -12 8 9 -10 35 -2 -35 -3 -19 -8 5 -43 -26 -22 -5 46 -7 37 -3 22 11 -46 -23 49 -37 15 -45 -8 9 24 -32 30 -16 -12 -31 -28 6 -44 1 38 -44 -29 49 -45 -32 -22 -50 39 46 0 17 -20
Найденная сумма равна -95

ПЕР
  M: РЯД 63 ИЗ ЦЕЛ;
  результат: ЦЕЛ;

УКАЗ
  результат := M[2] * 2 + (M[9] + 5);