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.