У и запиши верный ответ.

(A∨N)&(A∨N¯¯¯)

type
  teach   = record
    firstName, lastName: string;
  end;
  lecture = record
    teacher: teach;
    subject: string;
    shifr, auditoria, day, para: integer;
    constructor create(teachFirstName, teachLastName, subject_: string; shifr_, auditoria_, day_, para_: integer);
    begin
      teacher.firstName := teachFirstName;
      teacher.lastName := teachLastName;
      subject := subject_;
      shifr := shifr_; auditoria := auditoria_; day := day_; para := para_;
    end;
  end;

var
  a: array [1..2] of lecture;
begin
  for i: byte := 1 to 2 do
  begin
    a[i] := new lecture('Ололош' , 'Джигурдович', 'Джигурдоведение', 2, 5, 6, 7);
  end;
end.

Const
    m = 10; 
var
    a,b: array[1..m] of integer;
    c: array[1..m*2] of integer;
    i, j, k: integer; 
begin     
write ('Первый массив: ');    
for i := 1 to m do
  begin
  a[i] := random(100);
  c[i]:=a[i];
  write (a[i],'; ');
  end;    
writeln;      
write ('Второй массив: ');    
for i := 1 to m do
  begin
  b[i] := random(100);
  c[i+m]:=b[i];
  write (b[i],'; ');
  end;    
writeln;      
for i := 1 to 2*m-1 do
        for j := 1 to 2*m-i do
           if c[j] > c[j+1] then
             begin
             k := c[j];
             c[j] := c[j+1];
             c[j+1] := k
             end;     
write ('Отсортированный третий массив: ');    
for i := 1 to 2*m do
   write (c[i],'; ');
end.