даны целые числа a1,a2,. Известно,что a1>0 Pascal

var i, k, n, a: integer;
    s: real;
begin
  repeat
    write('Количество чисел = ');
    readln(k);
    if k < 1 then writeln('Количество чисел должно быть больше 1.')
  until k >= 1;
  n := 0;
  s := 1;
  writeln('Введите числа:');
  for i := 1 to k do
    begin
      repeat
        write('a[', i, '] = ');
        readln(a);
        if (i = 1) and (a < 0) then writeln('Первое число должно быть положительным.')
      until (i > 1) or (a >= 0);
      if n = 0
        then if a >= 0
          then s := s * a
          else n := i - 1
    end;
  if n = 0
    then writeln('Отрицательные числа не обнаружены.')
    else begin
      writeln('Первые ', n, ' чисел больше либо равны нулю.');
      writeln('Их среднее геометрическое равно ', exp(ln(s) / n))
    end;
  readln
end.

var
  p, a: real;
  n: integer;
begin
  n:=0; p:=1;
  Read(a);
  while a>0 do begin
    p:=p*a; inc(n);
    Read(a);
  end;
  WriteLn('r = ',exp(ln(p)/n));
end.

var
  p, a: real;
  n: integer;
begin
  n:=0; p:=1;
  Read(a);
  repeat
    p:=p*a; inc(n);
    Read(a);
  until a<=0;
  WriteLn('r = ',exp(ln(p)/n));
end.