Пожалуйста 20 баллов!

Ответ: Вот, решения 4 заданий в одной программе

begin

var y: real;

var x:=readreal('Введите x');

y := x-(sqr(x)/3)+(Power(x,6)/4);

Writelnformat('{0} = {1}-(x^2/2)+(x^6/4)',y,x);

y := sqr(-x)+cos(x)-sin(sqr(x));

Writelnformat('{0} = 3^({1})+cos({1}-sin({1}^2))',y,x);

y := (((x*x*x)+(9*x)+12)/(sqr(x)-(6*x)+15));

Writelnformat('{0} = {1}^3+9{1}+12/{1}^2-6{1}+15',y,x);

y := x+(12*sin(2*x))+abs(Power(x,3)+Power(x,5));

Writelnformat('{0} = {1}+12sin(2{1})+|{1}^3+{1}^5|',y,x);

end.