Program n11;
uses crt;
const n=5; 
var a,b: array [1..n] of integer;
    i,j,x,y: integer;
begin 
clrscr;

{Ввод массива a}

for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;

{Ввод массива b}

for j:=1 to n do
begin
write('b[',j,']=');
readln(b[j]);
end;