Государство на стыке центрально и южной европы . конфедерация​

Рассмотрим данный вопрос на примере произведения Амано Акиры "Психопаспорт". Одной из важнейших концепций вселенной, описанной в данной манге, является то, что ИИ Сибил (или нечто просто приближённое к этому понятию) определяет, является ли человек преступником. Этот же ИИ определяет будущую специальность человека, выявляя его таланты посредством тестов. Таким образом, машина почти полностью контролирует социальную жизнь человечества. Она направляет человека от рождения до смерти. Все несогласные с таким режимом либо остаются на всю жизнь в тюрьме, либо уничтожаются, либо начинают сами служить непосредственно Сибил, находя и ликвидируя себе подобных. С другой стороны, данный ИИ стремится поддержать порядок в обществе, что делает его важной частью государственного аппарата. Более того, человеку больше не нужно бояться конкуренции и неопределённости в жизни, всё уже решено за него машиной.
Подводя итог, положившись на Сибил, человечество заперло себя в клетку абсолютной безопасности. Выводы, которые делает ИИ весьма часто противоречат морали людей, что влечёт за собой ужасные катастрофы.

1)
var a:array [1..100] of integer;
i,n,k:integer;
begin
readln(n); //количество элементов массива
for i:=1 to n do
read(a[i]); //ввод массива через пробел с клавиатуры
writeln;
readln(k); //ввод значения, номер которого будем искать
for i:=1 to n do
if a[i]=k then writeln(i) //поиск номера введенного элемента
end.
2)
var a:array [1..100] of integer;
i,n,s:integer;
begin
s:=0;
readln(n); //количество элементов массива
for i:=1 to n do
read(a[i]); //ввод массива через пробел с клавиатуры
writeln;
for i:=1 to n do
if a[i]=5 then s:=s+1; //подсчёт кол-ва элементов равнх 5
writeln(s)
end.