Решить в цикле for или while через pascal n^2+(n+1)^2+(n+2)^2++(2n)^2

1. Современное решение

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('S=',SeqGen(n+1,i->Sqr(n+i)).Sum)
end.

Пример
n= 5
S=355

2. Примерно так часто учат в школе

var
  s,i,n:integer;

begin
  Write('n= ');
  Read(n);
  s:=0;
  for i:=0 to n do
    s:=s+Sqr(n+i);
  Writeln('S=',s)
end.

Var i, n, res: integer;
begin
res := 0;
write( 'n = ' );
readln(n);
for i := 1 to n do
  res := res + (( n + i ) * ( n + i ));
res := res + n * n;
writeln( res );
end.

#include <cstdlib>
#include <ctime> 
#include <iostream>
using namespace std;

int main() {
    int n=10,k=0;
    int a[n];
    srand(time(NULL));
    cout<<"array:"<<endl;
    for (int i=0; i<n; i++)
    {
      a[i]=rand() % 50;
      cout<<a[i]<<" ";
    }
    cout<<endl;
    for (int i=0; i<n; i++)
    if (a[i]%2==0 && a[i]!=0)  {
       cout<<a[i]<<" ";
       k++;
    }
    cout<<endl;
    if (k>n-k) cout<<"четных больше";
    else if (k<n-k) cout<<"нечетных больше";
    else cout<<"равное количество";
    cout<<endl;
 
    system("pause");
    return(0);
}

#include <iostream>
#include <stdlib.h>
using namespace std;

int main() {
const int n = 10;
int a[n];
int k=0;

srand(time(0));
for (int i = 0; i < n; i++) {
a[i]=-20 + (101.0 / RAND_MAX) * rand();
cout << a[i] << " ";
}
cout <<"\n";
cout << "Чётные числа:\n";

for (int i = 0; i < n; i++){
 if (a[i] % 2 == 0) {
  cout << a[i] << " ";
  k++;
 }
}
cout <<"\n";
if (k > n-k) cout << "Чётных больше"; 
else if (k < n-k) cout << "Нечётных больше"; 
else cout << "Чётных и нечётных поровну";
cout <<"\n";

return 0;
}

Пример:
27 11 77 59 28 8 59 64 16 80
Чётные числа:
28 8 64 16 80
Чётных и нечётных поровну