Ideone.com

download

copy

program func;
var x, y: real;
begin 
writeln ('введите x');
readln (x);
if x<=4 then y:=x*x*x-5*x-6
else y:=(9*x-5)/(X*X*X);
writeln ('y=',y)
end.

Success #stdin #stdout 0s 5272KB

stdin

copy

stdout

copy

введите x
y=-8.0000000000000000E+000

https://ideone.com/YdEfNG

language:

Pascal (fpc 3.0.4)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!