слить 2 массива А и В по 100 элементов в массив С из 200 элементов так , чтобы элементы массива А имели номера от 51 до 150.

var
masA,masB:array[1..100]of integer;
masC:[1..200]of integer;
i:integer;
begin
writeln('Введите элементы массива А');
for i:=1 to 100 do
read(masA[i]);
writeln('Введите элементы массива B');
for i:=1 to 100 do
read(masB[i]);
for i:=1 to 200 do
if (i>=1) and (i<=50)then masC[i]:=masB[i]
else if (i>50)and(i<=150) then masC[i]:=masA[i-50]
else masC[i]:=masB[i-100];
writeln('Полученный массив:');
for i:=1 to 200 do
writeln('c[',i,']=',c[i] );
end.

masC:[1..200]of integer;

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

uses
  crt;
var
  a,b:array[1..100]of integer;
  c:array[1..200]of integer;
  i:integer;
begin
  clrscr;
  textcolor(4);
  textbold;
  writeln('Ìàññèâ À:');
  textnormal;
  textcolor(0);
  write('[');
  for i:=1 to 100 do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln(']');
  textcolor(1);
  textbold;
  writeln('Ìàññèâ B:');
  textcolor(0);
  textnormal;
  write('[');
  for i:=1 to 100 do
  begin
    b[i]:=random(8)-4;
    write(b[i],' ')
  end;
  writeln(']');
  for i:=1 to 200 do
    if (i>=1) and (i<=50) then
     c[i]:=b[i]
    else
      if (i>50)and(i<=150) then
        c[i]:=a[i-50]
      else
        c[i]:=b[i-100];
  textbold;
  writeln('Ìàññèâ Ñ:');
  textnormal;
  write('[');
  textcolor(1);
  for i:=1 to 200 do
  begin
    if i=51 then
    begin
      textbold;
      textcolor(4)
    end;
    if i=151 then
    begin
      textcolor(1);
      textnormal;
    end;
    write(c[i],' ')
  end;
  textcolor(0);
  writeln(']')
end.