Это задача на систему третьего порядка, в школьном курсе рассматриваются такие задачи. Предлагаю такое решение
var x,y:real;
begin
read (x);
If x>2.5 then y:=sin(2.3*x-1);
if x<0 then y:=sqr(x)/(2-x);<br>if ( x>=0) and (x<=2.5 ) then y:=1-3*ln(abs(1-x));<br>writeln(y);
end.