Даны два массива А и В, каждый из которых состоит из 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.