Укажите верные утверждение while

Варианты ответов на скрине ​

Имя файла - Название
Файл - Книга
Вложенная папка - Полка
Папка - Шкаф
Диск - Библиотека

Объяснение:
Все очень ассоциативно. Файлы содержат в себе информацию, как и книги, которые вы можете найти на полке в шкафу. Только вот файлы вы ищете в папках и во вложенных папках (вложенная — то есть папка сама лежит в папке). Файлы вам доступны по имени файла, точно также как и доступна вам книга по ее названию, когда вы ее покупаете или приходите в библиотеку. Библиотека, в таком случае, — это аналогия жесткому диску, на котором содержится вся информация компьютера (все папки, вложенные в них папки, и файлы лежащие в этих папках)

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),1,99);
  a.Println;
  var k:=ReadInteger('k=');
  Writeln('Сумма чисел, кратных ',k,': ',
    a.Where(x->x mod k=0).Sum)
end.

Тестовое решение:
n= 18
45 17 36 15 65 17 97 44 49 43 60 51 66 72 18 55 71 85
k= 12
Сумма чисел, кратных 12: 168

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),1,20);
  a.Println;
  a.Where((x,i)->x=i+1).Println
end.

Тестовое решение:
n= 16
17 2 1 14 20 19 10 3 9 15 14 4 2 7 2 16
2 9 16