Дан ряд чисел. Найти наибольшее из чисел 2а1, 3а2, 4а3,…, 9а8.

const   n = 8; var   a: array[1..n] of integer;   i, t, im, max: integer; begin   Writeln('Введите через пробел ', n, ' чисел');   max := -32768;   for i := 1 to n do   begin     Read(t);     a[i] := t; t := (i + 1) * t;     if max < t then begin max := t; im := i end;   end;   Writeln('Максимальное значение ', max, ' достигается как ', im + 1, '*a[', im, ']') end. Тестовое решение: Введите через пробел 8 чисел 4 -3 5 4 3 2 1 0 Максимальное значение 20 достигается как 4*a[3]