===== PascalABC.NET =====
begin
var a0 := ReadReal('Укажи начальное значение:');
Println('Сумма равна', SeqGen(10, a0, i -> 2 * i).Sum)
end.
