Вычислите сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел, равных заданному Т

const
  n = 20;
 
var
  a: array[1..100] of integer;
  sum, t, i, k: integer;
 
begin
  sum := 0;
  k := 0;
  readln(t);
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:4);
    if (i mod 3 = 0) and (a[i] >= 0) then 
      sum := sum + a[i];
    if a[i] = t then 
      inc(k);
  end;
  Writeln;
  Writeln('Сумма: ', sum, ', количество: ', k);
end.

const
  n = 10;
 
var
  A: array of integer;
  t, k, i, j: integer;
  p: real;
 
begin
  randomize;
  SetLength(a, n);
  for i := 0 to N - 1 do 
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:4);
  end;
  writeln;
  p := 1;
  k := 0;
  for i := 0 to N - 1 do
    for j := 0 to i - 1 do
      if a[i] = a[j] then 
      begin
        writeln('Номера первых одинаковых элементов: ', j + 1, ' и ', i + 1);
        for t := j + 1 to i - 1 do
          p := p * a[t];
        inc(k);
        if k <> 0 then
          writeln('Произведение тех элементов массива, которые расположены между одинаковыми элементами: ', p)
        else
          writeln('Нет одинаковых элементов. ');
        exit;
      end;
  SetLength(a, 0);      
end.

begin
  var a := ArrRandomInteger(readinteger('Длина массива: '), -25, 25).Println(',');
  var t := ReadInteger('Введите значение T');
  writeln(' Сумма = ', a.Where((x, i) -> (x >= 0) and (i mod 3 = 0)).Sum(),
          ' Количество = ', a.Count(x -> x = T));
end.