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

Var
  x: real;

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