сложные циклы. обработка массивов, новые последовательности Опции

[злой тапОК]

Даны 2 последовательности чисел а1, а2, ... , an и b1, b2, ... , bn . Сформулировать новые последовательности, элементы которых вычисляются по следующему правилу :

ai = ai + bi,
bi = ai - bi,
i = 1, 2, ..., n.

[klem4]

Предположительно так:

for i := 1 to n do begin
  a[i] := a[i] + b[i];
  b[i] := a[i] - 2 * b[i];
end;