Составьте программу в системе паскаль №11

Question

Составьте программу в системе паскаль №11

---

Answer 1

Var x:real;
begin
readln(x);
if x>3 then writeln(-3*x+9) else writeln(power(x,3)/(power(x,2)+8))
end.