Y={(все три) x^2 - 2x +3,x< 1 (под корнем)x-1,1< =x< =2 cos x ,x> 2 решить программу по работе условный оператор! заранее

Var
  x, y: real;

begin
  Write('Введите х'); Readln(x);
  if x < 1 then y := sqr(x) - 2 * x + 3
  else
  if x <= 2 then y := sqrt(x - 1)
  else y := cos(x);
  Writeln('y=', y)
end.

Тестовое решение:
Введите х1.5
y=0.707106781186548