Составить программу формирующую 3 одномерных массива. Первые 2 заполняются случайными числами от 1 до 10.3-ий массив представляет из себя сумму первых двух (а1+b1; a2+b2). Использовать минимальное количество циклов

Var

a, b, c: array [1 ... 10] of integer;

i: integer;

begin

for i:=1 to 10 do

begin

a[i]: = random (10) + 1;

writeln ('a[', i, '] = ', a[i], ' ');

b[i]: = random (10) + 1;

writeln ('b[', i, '] = ', b[i], ' ');

c[i]:=a[i]+b[i];

writeln ('c[', i, '] = ', c[i], ' ');

end;

end.