Решение предоставлено на фото ниже
===== PascalABC.NET =====
begin
var a := ArrRandom(30, 0, 99);
a.Println;
a.Where((v, i) -> (i > 0 ? v mod i = 0 : False)).Sum.Println
end.
