решить задачи:
Пусть имеется БД «Поставки деталей», содержащая 4 таблицы:
1. Таблица «Поставщики» с именем S с полями
Snum – номер поставщика, первичный ключ
SName – имя поставщика
Status – статус поставщика
City – город поставщика
2. Таблица «Детали» с именем P с полями
Pnum – номер детали, первичный ключ
PName – название детали
Color – цвет детали
Weight – вес детали
City – город детали
3. Таблица «Проекты» с именем J с полями
Jnum – номер проекта, первичный ключ
JName – название проекта
City – город проекта
4. Таблица «Реализация проектов» с именем SPJ с полями
Snum – номер поставщика, осуществляющего поставку, внешний ключ к таблице S
Pnum – номер детали, которая поставляется, внешний ключ к таблице P
Jnum – номер проекта, для которого производится поставка, внешний ключ к таблице J
Kolvo – количество поставленных деталей.
В первичный ключ входят поля Snum, Pnum и Jnum

// PascalABC.NET 3.6.3

uses School;

function Divizors(n: integer): List<integer>;

begin

 var L := new List<integer>;

 L.Add(1);

 L.Add(n);

 if n > 3 then

   begin

   var k := 2;

   while (k * k <= n) and (k < 46341) do

   begin

     if n mod k = 0 then

     begin

       var t := n div k;

       L.Add(k);

       if k < t then L.Add(t)

       else break

     end;  

     Inc(k)

   end;

   L.Sort;

 end;

 Result := L

end;

begin

 // 1

 if ReadInteger.IsPrime then Println('YES')

 else Println('NO');

 // 2

 ReadInteger.Factorize.First.Println;

 // 3

 var a := Divizors(ReadInteger);

 Print(a.Count, a.Sum)

end.

1. Если число оканчивается на 6, то оно четное согласно признаку делимости на 2, поэтому проверка на четность не нужна.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),20,80); a.Println;
  var k:=a.Where(t->t mod 10=6).Count;
  if k>0 then Writeln(k)
  else Writeln('Нет')
end.

Пример
n= 15
47 53 73 26 75 64 70 32 27 80 29 53 20 62 66
2

2. Достаточно много раз нужно запускать задачу, чтобы суметь получить случайную последовательность с парой одинаковых соседних элементов...

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,0,100); a.Println;
  var k:=a.Pairwise.Where(t->t[0]=t[1]).Count;
  if k>0 then Writeln(k)
  else Writeln('Нет')
end.

Пример
60 41 87 87 95 75 72 32 8 52
1