Разветвляющийся вычислительный процесс. Вариант № 3

Question

Разветвляющийся вычислительный процесс.
Вариант № 3

---

Answer 1

Var
  x: real;

begin
  write('x = ');
  readln(x);
  write('y = ');
  if x < 1 then
    writeln(2 * x - 17)
  else
    if (x <= 5) then<br>      writeln(power(x, 7))
    else
      writeln(x * ln(x));
end.