// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!
begin var y:=Range(2,36,2).Select(i->i*i).ToArray; y.Println end.
Результат
4 16 36 64 100 144 196 256 324 400 484 576 676 784 900 1024 1156 1296