begin
    { Генерируем последовательность }
    var seq := SeqRandomInteger(15, -130, 55).ToArray.Println;
    
    { Сортируем последовательность на все числа, кратные двум (чётные) и выводим сумму }
    var Sum := seq.Where(x -> x mod 2 = 0).Sum.Println;
    
    { Делаем то же самое с трёхзначными числами }
    Sum := seq.Where(x -> ((x >= -999) and (x <= -100))).Sum.Println;
    
    var valueOfThr := seq.Where(x -> ((x >= -999) and (x <= -100))).Count.Println;
    
    valueOfThr := seq.Where(x -> x mod 3 <> 0).Count.Println;
end.