cùng số phần tử:

uses crt;
var a,b:array[1..100] of integer;
c:array[1..100] of longint;
i,n:integer;
begin
clrscr;
write('Nhap so ptu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
write('B[',i,']=');
readln(b[i]);
c[i]:=a[i]+b[i];
end;
write('mang c la:');
for i:=1 to n do write(c[i],';');
readln
end.

-cùng phần tử(giá trị của mỗi ptu trong mảng a và b giống nhau):

uses crt;
var a,b:array[1..100] of integer;
c:array[1..100] of longint;
i,n:integer;
begin
clrscr;
write('Nhap so ptu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
b[i]:=a[i];
c[i]:=a[i]+b[i];
end;
write('mang c la:');
for i:=1 to n do write(c[i],';');
readln
end.

note: nếu sai yêu cầu của đề thì bảo để mik sửa vì đề bạn không ghi rõ

uses crt;
var i,n,s: integer;
    a,b,c: array[1..100] of integer;
begin
clrscr;
    readln(n);
    s:=0;
    for i:=1 to n do begin
        readln(a[i],b[i]);
        c[i]:=a[i]+b[i];
    end;
    for i:=1 to n do write(c[i],' ');
    readln
end.