Последовательность простых чисел с номерами от 1 до М упорядочена по убыванию суммы цифр в десятичном представлении чисел (при одинаковой сумме цифр больший порядковый номер имеет меньшее число). Для 5000 сумма первых 2022 элементов упорядоченной последовательности составит …

1. а) Петя едет в автобусе, читает книгу и насвистывает.
    б) Петя насвистывает, когда едет в автобусе или читает книгу.
    в) Петя едет в автобусе и читает книгу или насвистывает.
    г) то же, что и а).
   д) Петя едет в автобусе или читает книгу и насвистывает.
2. а) Число 5-простое = 1.    б) Луна-спутник Венеры = 0. 
  в) Число 5-простое и Луна-спутник Венеры = 0.
г) Число 5-простое или Луна-спутник Венеры = 1.
д) Если число 5-простое, то Луна-спутник Венеры = 0.
е) Число 5-простое тогда и только тогда, когда Луна-спутник Венеры = 0.
3. а) 1999<2000 и 1999>2000
б) Петя решил все задания контрольной работы и Петя не решил все задания контрольной работы
в) Неверно, что луна спутник Земли и Неверно, что луна не является спутником Земли
г) Мишень поражена не первым выстрелом и Неверно, что мишень поражена не первым выстрелом.
4. А=1,  В=0,  С=1,  Д=0.

Var  i, j, kolvo:Integer;  a, b:array[1..10] of Integer;begin;  randomize;    {Заполнение массивов}  for i:=1 to 10 do begin;    a[i] := random(0, 10);    b[i] := random(0, 10);  end;    {Вывод массива a}  write('Массив a = [', a[1]);  for i:=2 to 10 do begin;    write(', ', a[i]);  end;  writeln('];');  {Вывод массива b}  write('Массив b = [', b[1]);  for i:=2 to 10 do begin;    write(', ', b[i]);  end;  writeln('];');    {Непосредственно нахождение кол-ва уникальных элементов}  kolvo:=0;  for i:=1 to 10 do begin;     for j:=1 to 10 do begin;        if(a[i] = b[j]) then break;        if(j=10)then Inc(kolvo);     end;  end;  for i:=1 to 10 do begin;     for j:=1 to 10 do begin;        if(b[i] = a[j]) then break;        if(j=10)then Inc(kolvo);     end;  end;  writeln('Количество уникальных элементов массива: ', kolvo,'.');end.

Результат:
Массив a = [8, 10, 4, 9, 0, 1, 5, 8, 9, 8];Массив b = [4,   0, 1, 5, 6, 2, 2, 1, 3, 9];Количество уникальных элементов массива: 8.
Выглядит правдоподобно, но не проверял.