Составить программу, вычисляющую значение y, если: y = x в третьей -2x, если x больше или ровно1 2x-5, если x< 1

Var
  x, y: real;

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