Дан линейный вещественный массив. Найти сумму его элементов по заданному условию

begin
  var n := ReadLnInteger('размер массива n=');
  var a : array of Real;
  SetLength(a, n);
  for var i := 1 to n do
    a[pred(i)] := ReadLnReal('a[' + i.tostring + '] =');
  var s := 0.0;
  var k := 1;
  var i := 1;
  while i <= a.Length do
    begin
      s += sqr(a[pred(i)]);
      k += 2;
      i += k;
    end;
  WriteLn('Сумма = ', s);
end.

begin
  var n := ReadLnInteger('размер массива n=');
  var a : array of Real := new Real[n];
  for var i : integer := 1 to n do
    a[pred(i)] := ReadLnReal('a[' + i.tostring + '] =');
  
  writeln('Сумма = ', a.Where((v, i) -> Frac(Sqrt(i + 1)) = 0.0).Sum(v -> sqr(v)));
end.

Uses crt;
Const n=20;
Var i,k:integer; a:array[1..n]of real; sum:real;
Begin
 clrscr;
 randomize;
 for i:=1 to n do
  begin
   a[i]:=random(100);
   write(a[i],' ');
  end;
 writeln;
 sum:=0;
 k:=1;
 while sqr(k)<=n do
  begin
   sum:=sum+sqr(a[sqr(k)]);
   k:=k+1;
  end;
 writeln('Summa=',sum);
End.