Если массив А не равен массиву В, то сформировать массив С, где ci=ai+bi

const
 n=3;
var
 a: array[1..n] of integer;
 b: array[1..n] of integer;
 c: array[1..n] of integer;
 i: integer;
 br: boolean;
begin
 
 br:= true;
 writeln('Ââåäèòå ýëåìåíòû ìàññèâà À');
 for i:=1 to n do
  begin
  readln(a[i]);
  end;
 writeln('Ââåäèòå ýëåìåíòû ìàññèâà B');
 for i:=1 to n do
  begin
  readln(b[i]);
  end;
  
 for i:=1 to n do
  begin
   if a[i]<>b[i] then
    begin
     br:=false;
     break;
    end;
   end;
 
 if br=false then
  begin
  for i:=1 to n do c[i]:=a[i]+b[i];
  end
 else
   begin
  for i:=1 to n do c[i]:=a[i];
  end;
  writeln('Ýëåìåíòû ìàññèâà C');
 for i:=1 to n do
  begin
  write(c[i],' ');
  end;
end.

 program M;
 Var a,b,c:array [1..1000] of integer;
 V:boolean;
J,I:integer;
Begin
V:=true;
Read(j);//количество чисел
For I:=1 to j do
  Read(a[i]);
for I:=1 to j do
 Read(b[i]);
 
For I:=1 to j do
 Begin
   If a[i]<>b[i] then
    V:=false
     Else v:=true;
 End;
 If v=true then
  c:=a
 Else begin
   For I:=1 to j do
   C[i]:=(a[i]+b[i]);
End;
   For I:=1 to j do
    Write(c[i], ' ');
End.

 var a, b, c: array of integer;
    n, i:integer;
    v:boolean;
begin
 
  writeln('Введите длину массива');
  readln(n);
  n:=n+1;
  setlength(a, n);
  setlength(b, n);
  setlength(c, n);
  n:=n-1;
  writeln('Введите первый массив:');
  for i:=1 to n do
   readln(a[i]);
  v:=true;
  writeln('Введите второй массив:');
  for i:=1 to n do
  begin
   readln(b[i]);
   if b[i]<>a[i] then v:=false;
  end;
  if v=false then for i:=1 to n do c[i]:=a[i]+b[i] else for i:=1 to n do c[i]:=a[i];
 writeln('Третий массив:');
 for i:=1 to n do
   writeln(c[i]);
 readln;
 
end.

if a[1]<>b[1] then
  begin
  for i:=1 to n do c[i]:=a[i]+b[i];
  end
 else
   begin
  for i:=1 to n do c[i]:=a[i];
  end;

var a, b, c: array [1..1000] of integer;
    n, i:integer;
    v:boolean;
begin
 
  writeln('Введите длину массива');
  readln(n);
  writeln('Введите первый массив:');
  for i:=1 to n do
   readln(a[i]);
  v:=true;
  writeln('Введите второй массив:');
  for i:=1 to n do
  begin
   readln(b[i]);
   if b[i]<>a[i] then v:=false;
  end;
  if v=false then for i:=1 to n do c[i]:=a[i]+b[i] else for i:=1 to n do c[i]:=a[i];
 writeln('Третий массив:');
 for i:=1 to n do
   writeln(c[i]);
 readln;
 
end.