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

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