Вычислить значение функции y=x*x для x=2,4,6, и разместите их в одномерном массиве y.

// 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

//с++
#include <iostream>
using namespace std;
const int n = 18;

void main() {
int *y = new int[n];
int tmp = 2;
for (int i(0);i<n;i++) {
y[i] = tmp*tmp;
tmp+=2;
}
//вывод массива:
for (int i(0);i<n;i++) {
cout << i+1 << ":" << y[i] << endl;
}
return;
}