Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В, состоящий из m элементов),

const
  n = 15;
  m = 20;
  L = 10;
  P = 99;
  n_max = 100;
 
type
  vector = array [1..n_max] of integer;
 
var
  a, b, c, d: vector;
  k, i: integer;
 
function TwoOdd(q: integer): boolean;
begin
  TwoOdd := ((q mod 10) mod 2 = 0) and ((q div 10) mod 2 = 0);
end;
 
function TwoNotOdd(q: integer): boolean;
begin
  TwoNotOdd := ((q mod 10) mod 2 <> 0) and ((q div 10) mod 2 <> 0);
end;
 
procedure RandomVector(var x: vector; k: integer);
var
  i: integer;
begin
  for i := 1 to k do 
    x[i] := random(p - l + 1) + l;
end;
 
procedure PrintVector(x: vector; k: integer);
var
  i: integer;
begin
  for i := 1 to k do 
    write(x[i]:4);
  writeln;
end;
 
begin
  randomize;
  writeln('Array A:');
  randomvector(a, n);
  printvector(a, n);
  writeln('Array B:');
  randomvector(b, m);
  printvector(b, m);
  k := 0;
  for i := 1 to n do 
    if twoodd(a[i]) then 
    begin
      inc(k);
      c[k] := a[i];
    end;
  for i := 1 to m do 
    if twoodd(b[i]) then 
    begin
      inc(k);
      c[k] := b[i];
    end;
  writeln('Array C:');    
  for i := 1 to k do 
    write(c[i]:4);
  writeln;  
  k := 0;
  for i := 1 to n do 
    if twonotodd(a[i]) then 
    begin
      inc(k);
      d[k] := a[i];
    end;
  for i := 1 to m do 
    if twonotodd(b[i]) then 
    begin
      inc(k);
      d[k] := b[i];
    end;
  writeln('Array D:');    
  for i := 1 to k do 
    write(d[i]:4);
  writeln;    
end.