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