Для представления чисел в ней используются цифры от 0 до 7.
begin
var a := ArrRandom(30, 10, 99);
a.println;
writeln(a.Where(x -> (x mod 17 = 0)).DefaultIfEmpty.Aggregate(1, (i, j)-> i * j));
<span>end.
</span>
Так как у вас не отображаются остальные задания. Сделал проще. Прикрепил исходный файл Pascal к файлу.
Для решения задачи достаточно знать правила работы всех используемых в данном фрагменте операторов.
Вначале выполняются присваивания <span>s:=0; i:=1;
Затем начинает выполняться цикл, в котором проверяется условие i>1. При подстановке в условие значения i получим 1>1. Это условие не выполняется (выражение имеет значение false), значит не будет выполняться и тело цикла </span><span>begin s:=s+1/I; i:=i-1; end;
</span>Следовательно, значение переменной S останется = 0.