Программа

Program Vectors;
{ Формирование вектора C 
  по заданным векторам A и B }
Const N=6;                                           { Размерность вектора A }
      M=7;                                           { Размерность вектора B }
Var A:array[1..N] of integer;                                     { Вектор A }
    B:array[1..M] of integer;                                     { Вектор B }
    C:array[1..M+N] of integer;                                   { Вектор C }
    MeterA,MeterB,MeterC:integer;                                 { Счетчики }
BEGIN
  WriteLn;                                                  { Пропуск строки }
  for MeterA:=1 to N do                               { Цикл ввода вектора A }
    Begin
      Write('Введите A[',MeterA,'] ');{ Приглашение ввести элемент вектора A }
      ReadLn(A[MeterA])                            { Ввод элемента вектора A }
    End;
  WriteLn;                                                  { Пропуск строки }
  for MeterB:=1 to M do                               { Цикл ввода вектора B }
    Begin
      Write('Введите B[',MeterB,'] ');{ Приглашение ввести элемент вектора B }
      ReadLn(B[MeterB])                            { Ввод элемента вектора A }
    End;
  WriteLn;                                                  { Пропуск строки }
  MeterA:=1;  MeterB:=1;          { Установка начального положения счетчиков }
  for MeterC:=1 to N+M do                      { Цикл формирования массива C }
    if (MeterA<=N) and (MeterB<=M)
                        { Если счетчики массивов не превысили верхних границ }
      then              { то }
        if A[MeterA]<=B[MeterB]
                             { если текущий элемент A <= текущему элементу B }
          then begin         { то }
                 C[MeterC]:=A[MeterA];  { определление значения элемента C }
                 MeterA:=MeterA+1       { переопределение счетчика массива A }
               end
          else begin         { иначе }
                 C[MeterC]:=B[MeterB];    { определление значения элемента C }
                 MeterB:=MeterB+1       { переопределение счетчика массива B }
               end
      else              { иначе }
        if MeterA>N                { если счетчик A превысил верхнюю границу }
          then begin               { то }
                 C[MeterC]:=B[MeterB];    { определление значения элемента C }
                 MeterB:=MeterB+1       { переопределение счетчика массива B }
               end
          else begin               { иначе }
                 C[MeterC]:=A[MeterA];    { определление значения элемента C }
                 MeterA:=MeterA+1       { переопределение счетчика массива A }
               end;
  for MeterC:=1 to N+M do WriteLn('C[',MeterC,']=',C[MeterC])
                                           { Вывод сформированного массива C }
END.