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