Pascal ABC. Напишите листинг решения оператора ветвления.

 Это задача на систему третьего порядка, в школьном курсе рассматриваются такие задачи. Предлагаю такое решение

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);
if ( x>=0) and (x<=2.5 ) then y:=1-3*ln(abs(1-x));
writeln(y);
end.