Даны два массива А и В, каждый из которых состоит из 6 элементов. Найдите их удвоенную разность и запишите полученный результат в третий массив С. с[i]=2 * (a[i]-b[i])

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

i:integer;

begin

Writeln ('Введите элементы массива А: ') ;

for i: = 1 to 6 do

readln (a[i]) ;

Writeln ('Введите элементы массива B: ') ;

for i: = 1 to 6 do readln (b[i]) ;

for i: = 1 to 6 do

C[i]:=2 * (a[i]-b[i]) ;

Writeln ('Элементы массива С : ') ;

for i: = 1 to 5 do

Write (c[i],', ') ;

Writeln (c[6],'. ') ;

end.