Составьте программу , которая вычисляет и печатает сумму квадратов четных чисел x...

Question

Составьте программу , которая вычисляет и печатает сумму квадратов четных чисел x натурального ряда N , где x€[2;20]

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Range(2,20,2).Select(t->t*t).Sum.Println
end.

Результат
1540