найти сумму квадратов естественных чисел от 15 до 25. Создать массив

Var
  i, s: integer;

begin
  s := 0;
  for i := 15 to 25 do s := s + sqr(i);
  Writeln('s=', s)
end.

Тестовое решение:
s=4510

***********************************
const
  n = 10;

var
  i, k: integer;
  a: array[1..n] of integer;

begin
  Randomize;
  k := 0;
  Write('Массив данных: ');
  for i := 1 to n do
  begin
    a[i] := Random(26);
    Write(a[i]:3);
    if a[i] gt; 12 then k := k + 1
  end;
  Writeln(1310, 'k=', k)
end.

Тестовое решение:
Массив данных:   0 21 20  8 14 15 25 11  2 20
k=6