program fantscrin;
var x,f:real;
begin
write('X = '); readln(x);
if (x<-2) then f:=-2;
if ((x<2)and(x>-2)) then f:=x*x*x;
if (x>2) then f:=x+2;
writeln(f);
end.
Ответ:
форме, площадью, цветом ,
Var
s, x: integer;
begin
readln(x);
s := x * x + 5 * x * x * x;
writeln(s);
end.