Дано действительное х. Вычислить у. На PascalABC, помогите, пожалуйста

var x, y: real; begin write('Введите x: '); readln(x); if x < 1.25 then y := 0.35 * cos(0.35) + sqrt(1.25 - x) else if x = 1.25 then y := 0 else y := 0.35 * cos(0.35) - ln(x - 1.25); writeln('y = ', y); end.