Розробіть модель бази даних за темою в Microsoft Word
 Розробіть структуру таблиць, (придумайте стовпці, не менше 3х з різним типом
даних (текст, числовий, логічний, дата і час, грошовий) окрім ключового)
вкажіть ключові поля.
 Побудуйте зв’язки між таблицями.
 Окремо побудуйте таблиці та внесіть в них інформацію (по 10 записів до
кожно

Информационным называют процесс, связанный с определёнными операциями (действиями) над информацией, в ходе которых может измениться содержание информации или её форма.
Виды информационных процессов
Среди всех информационных процессов можно выделить наиболее общие.

К ним относятся:

- получение,

- передача,

- хранение

- обработка информации.

Эти процессы являются базовыми.

Их выполнение порождает другие информационные процессы.

Так, например,

- получение информации может быть связано с её поиском, хранение — с накоплением;

- при передаче информации необходимо позаботиться о её защите от разрущающих воздействий.
Все процессы требуют той или иной формы представления информации, определяет которую процесс — кодирование. Он сопровождает все остальные процессы и является связующим звеном между ними.
Информационные процессы не изолированы, а протекают циклично в единстве и взаимосвязи друг с другом.

Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида

//PascalABC.Net

function NOD(A, B: integer): integer;
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

procedure pNOD(A, B: integer; var NOD: integer);
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

begin
    var a: Array of integer := (16, 32, 40, 64, 80, 128);
    var n := a[low(a)];
    for var i := low(a) to high(a) do
        pNOD(n, a[i], n);
   
    Writeln(n);
end.