program Hello;
var x : integer;
begin
write ('Введите x: ');
readln(x);
if x > 3 then
writeln('ответ: ', -3 * x + 9)
else
writeln('ответ: ', (x*x*x)/((x*x) + 8));
end.
--- PascalABC.NET 3.6.2 ---
begin
var func1: real -> real := x -> -3*x + 9;
var func2: real -> real := x -> (x**3)/((x**2) + 8);
var X := ReadInteger();
Println(X > 3 ? func1(X) : func2(x));
end.
Пояснение: Тернарный оператор так же является условным, по этому его использование не противоречит условию задания.
