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