Const
 N=20;
 M=16;

Type
 Ar1=Array[1..N] of byte;
 Ar2=Array[1..M] of byte;
 Ar3=Array[1..N+M] of byte;

Var
 B:Ar1;
 C:Ar2;
 D:Ar3;
 v,Nd:byte;

Procedure Select(Q:Ar1; P:Ar2; var R:Ar3; var Nr:Byte);
var
 i,j,k:byte;
 b:boolean;
 W:Ar3;
begin
 k:=0;
 for i:=1 to N do
  begin
   b:=true;
   for j:=1 to k do
    if Q[i]=W[j] then b:=false;
   if b then
    begin
     Inc(k);
     W[k]:=Q[i];
    end;
  end;
 for i:=1 to M do
  begin
   b:=true;
   for j:=1 to k do
    if P[i]=W[j] then b:=false;
   if b then
    begin
     Inc(k);
     W[k]:=P[i];
    end;
  end;
 Nr:=k;
 R:=W;
end;

Begin
 Randomize;

 Writeln('Array B:');
 for v:=1 to N do
  begin
   B[v]:=Random(40);
   Write(B[v]:4);
  end;
 writeln;
 writeln;

 Writeln('Array C:');
 for v:=1 to M do
  begin
   C[v]:=Random(40)+10;
   Write(C[v]:4);
  end;
 writeln;
 writeln;

 Select(B,C,D,Nd);

 Writeln('Result:');
 for v:=1 to Nd do Write(D[v]:4);

 Readln
End.

// Дана матрица размера M x N.
// (M — четное число).
// Поменять местами верхнюю
// и нижнюю половины матрицы.
program Matrix55;
var
j,i,M,N,num:integer;
a: array [1..10,1..10] of real;
temp:real;
bol:boolean;
begin
// Ввод данных
writeln('Введите числа M (M — четное число)(M<=10) и N (N<=10)');
read(M); readln(N);
writeln('Введите по ',N,' элементов (значения от 0 до 100) ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do read(a[i,j]);
end;
// Решение
for i:=1 to M div 2 do
begin
for j:=1 to N do
begin
temp:=a[i,j];
a[i,j]:=a[(M div 2) + i,j];
a[(M div 2) + i,j]:=temp;
end;

end;
// ответ
writeln;
writeln('Ответ');
for i:=1 to M do begin
writeln;
for j:=1 to N do write(a[i,j],' ');
end;
end.

const
 n=4;
 m=5;

Type matr=array[1..n,1..m] of byte;

procedure XL(mt:matr; n1,n2:byte; var im,jm:byte);
var
 i,j:byte;
 max:byte;
begin
 max:=mt[n1,1];
 im:=n1;
 jm:=1;
 for i:=n1 to n2 do
  for j:=1 to m do
   if max<mt[i,j] then
    begin
     max:=mt[i,j];
     im:=i;
     jm:=j;
    end;
end;

Var
 na1,na2,nb1,nb2,i1m,j1m,i2m,j2m,i,j,c:byte;
 a:matr;

Begin
 na1:=1;
 na2:=2;
 nb1:=3;
 nb2:=4;
 for i:=1 to n do
  for j:=1 to m do
   begin
    write('a[',i,',',j,']= ');
    readln(a[i,j]);
   end;
 writeln;
 writeln('Initial matrix:');
 for i:=1 to n do
  begin
   for j:=1 to m do write(a[i,j]:4);
   writeln;
  end;
 writeln;
 XL(a,na1,na2,i1m,j1m);
 writeln('i1m= ',i1m);
 writeln('j1m= ',j1m);
 XL(a,nb1,nb2,i2m,j2m);
 writeln('i2m= ',i2m);
 writeln('j2m= ',j2m);
 c:=a[i1m,j1m];
 a[i1m,j1m]:=a[i2m,j2m];
 a[i2m,j2m]:=c;
 writeln;
 writeln('New matrix:');
 for i:=1 to n do
  begin
   for j:=1 to m do write(a[i,j]:4);
   writeln;
  end;
 readln
End.