C :

#include<stdio.h>
int main()
{
	int a[100], b[100], c[200];
	int m, n, i, j;
	scanf("%d", &m);
	for(i=0; i<m; i++)
	{
		scanf("%d", &a[i]);

	}

	scanf("%d", &n);
	for(i=0; i<n; i++)
	{
		scanf("%d", &b[i]);

	}
		
	for(i=0;i<m; i++)
	{
		c[i]=a[i];
	
	}
	for(i=m, j=0; j<n; i++, j++)
	{
		c[i]=b[j];
	}
	for(i=0; i<m+n; i++)
	{
		printf("%d ", c[i]);
	}
	return 0;
	

}

C++ :

#include"stdio.h"
int main()
{
	int a[100], b[100], c[200];
	int m, n, i, j;
	scanf("%d", &m);
	for(i=0; i<m; i++)
	{
		scanf("%d", &a[i]);

	}

	scanf("%d", &n);
	for(i=0; i<n; i++)
	{
		scanf("%d", &b[i]);

	}
		
	for(i=0;i<m; i++)
	{
		c[i]=a[i];
	
	}
	for(i=m, j=0; j<n; i++, j++)
	{
		c[i]=b[j];
	}
	for(i=0; i<m+n; i++)
	{
		printf("%d ", c[i]);
	}
	return 0;
	

}

Pascal :

program njdf;
var
  a,b,c:array[1..100] of integer;
  m,n,i,s:integer;
  begin
  read(m);
  for i:=1 to m do
  read(a[i]);
  readln;
  read(n);
  for s:=1 to n do
  read(b[s]);
  c:=a;
  for s:=m+1 to m+n do
  begin
  c[s]:=b[s-m];
  end;
  for i:=1 to m+n-1 do
  write(c[i],' ');
  write(c[m+n]);
end.