Var a,b:array [1..5] of longint;
c:array [1..10] of longint;
i:integer;
begin
{for i:=1 to 5 do
begin
read(a[i]);
end;
for i:=1 to 5 do
begin
read(b[i]);
end;} Это раскомментировать, если надо считывать массив из файла
for i:=1 to 10 do
begin
if i<6 then c[i]:=a[i] else c[i]:=b[i-5];<br>end;
end. // В массив c записываются значение массивов a,b