закодировать слова «бес нәрседен қашық бол» с кодов только чтоб правильно было.

Систематизация и поиск информации в хранилище связаны для облегчения поиска внутри каждой ветви, то есть нужную нам информацию попросту отсортировывают (упорядочивают).
Пример: ты ищешь информацию о смартфоне "Samsung Galaxy" и ты найдешь около миллиона предложений. Соответственно искать нужную тебе модель ты будешь намного дольше, если ты добавишь к "Samsung Galaxy" модель "S5", то кол-во информации значительно уменьшится, потому что ты ищешь то, что ты конкретно знаешь.
Говоря короче, зная область, модель, номер, фирму и т.д. ты сужаешь область поиска информации.

var

 n,k:integer;

 a:array of integer;

 s,k2:real;

begin

 

 {Ввод размера массива и элементов массива}

 while n<3 do begin

   write('Введите размер массива - '); readln(n);

   if n<3 then writeln('[Массив слишком короткий]');

 end;

 setLength(a,n);

 for var i1:=0 to n-1 do begin

   write('Введите ',i1+1,' элемент массива - '); readln(a[i1]);

 end;

 

 {Вычесление минимальной суммы трёх соседних элементов массива}

 s:=a[0]+a[1]+a[2];

 for var i2:=2 to n-2 do begin

   k:=a[i2-1]+a[i2]+a[i2+1];

   if s>k then s:=k;

 end;

 writeln('Минимальная сумма трёх соседних элементов = ',s);

 

 {Выполнение условия чётности и нечётности}

 k2:=s;

 while k2>=2 do begin

   k2:=k2-2;

 end;

 if k2=0 then s:=sqr(s)

 else s:=sqrt(s);

 write('ответ: ',s:0:3);

 

end.