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

var
  x: real;

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