Question

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

Answer 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.