Разветвляющийся вычислительный процесс.
Вариант № 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.