2.

program formula;

var x:real;

begin

read(x);

if x > 0 then

write(sqr(x)*x/3)

else

write(sqr(x)+1)

end.

3. Ошибка в задании a+b два раза.

Поэтому второй раз написал a-b

program formula4;

var x,a:real;

begin

read(x,a);

if (x <10)and(a>5) then

write(x+a)

else

write(x-a)

end.

4.

program formula5;

var x:real;

begin

read(x);

if (x <=9)and(x>=0) then

write(x)

else if x<0 then

write(x+2)

else

write(x-2)

end.