1. Текстура для создания градиентных переходов на поверхности A. Magic

B. Clouds

C. Distorted Noise

D. Blend

2. Текстура, с которой можно создавать вмятины  на поверхности

A. Magic

B. Clouds

C. Distorted Noise

D. Blend

3. Текстура, представляющая собой яркий узор

A. Magic

B. Clouds

C. Distorted Noise

D. Blend

4. Текстура, состоящая из различных по форме ячеек, напоминающих пчелиные соты

A. Voronoi

B. Clouds

C. Wood

D. Blend

5. Текстура для симуляции древесины

A. Voronoi

B. Clouds

C. Wood

D. Blend

6. Текстура для создания точек на поверхности так называемого шума

A. Voronoi

B. Clouds

C. Wood

D. Noise

7. Текстура,  которую можно использовать в качестве облаков

A. Voronoi

B. Clouds

C. Wood

D. Noise

8. Данной текстурой можно имитировать различные деформации на ровной поверхности

A. Wood

B. Clouds

C. Stucci

D. Noise​

//PascalABC.Net 3.0, сборка 1064
var
  s,w:string;
begin
  Write('Введите предложение: '); Readln(s);
  Write('Введите искомое слово: '); Readln(w);
  s:=' '+s+' ';
  if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')
  else Writeln('Слово не входит в предложение')
end.

Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение

Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение

Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение

Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)

Значит так: мы создаем массив избыточной длины, куда потом будем записывать рандомные числа. Так же мы создаем массив-счетчик b (у него индексами являются сами числа, а элементами - количество этого числа в массиве А), куда будет присваиваться, сколько раз нам встречается то или иное число (перед этим мы массив обязательно обнулим). В конце мы смотрим максимальное число из массива-счетчика. Вуаля!

Вот пример программы на паскале ABC:

var a:array [1..1000000] of integer; 
b:array [1..10] of longint;   
c:integer;   
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n); 
max:=0; 
for i:=1 to 10 do 
b[i]:=0; 
for i:=1 to n do  begin 
a[i]:=random(10)+1; 
write(a[i],' '); 
b[a[i]]:=b[a[i]]+1 
end; 
for i:=1 to 10 do if b[i]>max then 
begin 
c:=i; 
max:=b[i] 
end; 
writeln; 
writeln('Чаще всего в массиве встречается число ',c)
end.