Question

Посогите по информатике

Answer 1

program formula;

var x:real;

begin

read(x);

if x > 0 then

write(sqr(x)*x/3)

else

write(sqr(x)+1)

end.