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