Привет. Не могу вычеслит турбо паскал. y=lg(x+1) если x>1
If (x>1) then y:=ln(x+1)/ln(10);
Попробуй это