Вычислить среднее геометрическое элементов вектора У(k), кратных трем.

var
  s: string;
  c: char;
  i, k: integer;
 
begin
  readln(s);
  readln(c);
  k := 0;
  for i := 1 to length(s) do 
  begin
    if s[i] = c then begin
      for k := i to length(s) do 
      begin
        write(s[k]);
      end;
      break
    end;
  end;
end.

var
  a: array[1..100, 1..100] of integer;
  kol, j, i, n: integer;
 
begin
  randomize;
  readln(n); //n сделайте равным 3
  for i := 1 to n do 
  begin
    for j := 1 to n do
      a[i, j] := random(5);
  end;
  for i := 1 to n do 
  begin
    for j := 1 to n do
      write(a[i, j], ' ');
    writeln;
  end;
  writeln;
  kol := 0;
  for i := 1 to n do 
  begin
    for j := 1 to n do
      if a[i, j] = 0 then begin
        inc(kol);
      end;
  end;
  writeln(kol);
end.

var
  a: array[1..100] of integer;
  i, n, kol: integer;
  sr, srh: real;
 
begin
  randomize;
  readln(n); 
  for i := 1 to n do 
  begin
    a[i] := random(10);
    write(a[i], ' ');
  end;
  sr := 1;
  kol := 0;
  for i := 1 to n do 
  begin
    if a[i] mod 3 = 0 then begin
      sr := sr * a[i];
      inc(kol);
    end;
  end;
  writeln;
  srh := 0;
  srh := exp((1 / kol) * ln(sr));
  writeln(srh);
end.

a[i] := random(10)+1;