составить алгоритм y= -4, x<0 2x2+9, 0≤x≤5 x3, x>6

var y,x:real;

begin

readln(x);

y:=2*(1-x*x+2.5*x*x*x+x*x*x*x);

writeln(x);

end.

 

var x,y,z:real;

begin

readln(x);

y:=-x*x;

z:=y*x;

z:=2.5*z;

y:=y+z;

z:=z*x;

y:=y+z;

y:=y+1;

y:=y*2;

writeln(y);

end.

Объяснение:.