найти сумму квадратов натуральных чисел от 15 до 25. Создать массив а из десяти целых чисел принадлежащих промежутку [0;25) Вывести полученный массив на экран. подсчитать k-количество элементов массива значение которых превышает 12 ПОМОГИТЕ СРОЧНО

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] > 12 then k := k + 1  end;  Writeln(#13#10, 'k=', k)end.Тестовое решение:Массив данных:   0 21 20  8 14 15 25 11  2 20k=6