Сделать описание алгоритма к данной блок-схеме

Program kod;
var A,d:real;
var i,k:integer;
begin
  k:= 0;      
  i:= 0;
  d:= 1;
  writeln('Введите три действительных числа: ');
  repeat
    readln(A);
    if A >= 0 then 
      begin
        d:=d*A; 
        inc(k);         
      end;
    inc(i);
  until i >= 3;
  case k of
  0: writeln('Среди введенных чисел нет неотрицательных.');
  2: writeln('Найдено только одно неотрицательное число.');
  3,4: writeln('Среднее геометрическое= ', (Exp(Ln(d)/k)):0:2);
  end;
  Readln;
end.

  until i = 3;
  case k of
    0: writeln('Среди введенных чисел нет неотрицательных.');
    1: writeln('Найдено только одно неотрицательное число.')
    else 
      begin
        write('Среднее геометрическое= '); 
        if d > 0 then writeln(Exp(Ln(d)/k)):0:2) else writeln(0)
      end
  end;
  Readln;
end.