Найти сумму чисел от 1 до N, делящихся ** 5 и меньших а. Паскаль

Question

Найти сумму чисел от 1 до N, делящихся на 5 и меньших а.
Паскаль

Answer 1

Begin
    var a := ReadInteger('a =');
    PrintLn(
        Range(1, ReadInteger('n ='))
        .Where(x -> (x mod 5 = 0) and (x < a))
        .Aggregate((s, x)-> s + x)
    );
end.

Comments

//PascalABC.NET 3.1 сборка 1200