25. В результате применения пенициллина концентрация болезнетворных бактерий в крови больного уменьшается на 1/3 в день от содержимого предыдущего дня. Через сколько дней наступит выздоровление, если концентрация бактерий должна уменьшиться от N1 до N2? (N1 > N2). Напишите программу

Условие можно записать так:






begin
  var d : real;
  var N1: real;
  var N2: real;

  N1 := 0;
  N2 := 0;
 
  while (N1 < N2) or (N1 <= 0) or (N2 <= 0) or (N2 / N1 = 1) do begin
    writeln('Введите N1 и N2, N1 > N2: ');
    readln(N1);
    readln(N2);
  end;
 
  d := LogN(1.0 / 3.0, N2 / N1);
 
  writeln('Концентрация снизится минимум через, дней: ', d);
end.