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.

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.