Решите задачу на языке C + + или на Паскале

Заданы массивы A[n] и B[m]. Получить массив С[n+m], расположив в начале его элементы массива А, а затем - элементы массива В.

{Pascal}

var

a:array[1 ... 100] of integer;

b:array[1 ... 100] of integer;

c:array[1 ... 200] of integer;

i, n, m: integer;

begin

write ('Размер массива A: ') ;

readln (n) ;

write ('Размер массива B: ') ;

readln (m) ;

writeln ('Массив A:') ;

for i:=1 to n do begin

write ('A[', i,'] = ') ;

readln (a[i]) ;

end;

writeln ('Массив B:') ;

for i:=1 to n do begin

write ('B[', i,'] = ') ;

readln (b[i]) ;

end;

for i:=1 to n do

c[i]:=a[i];

for i:=n+1 to n+m do

c[i]:=b[i-n];

writeln ('Массив C:') ;

for i:=1 to n+m do

write (c[i]:4) ;

end.