Нужна ! мне нужны только сами программы, можно даже не все, а, хотя бы два номера. но желательно, конечно, все.заранее

1) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=x-(sqr(x)*x/3)+(sqr(x)*sqr(x)*x)/5;

writeln('y = ',y);

end.

2) var y,x,z:real;

begin

writeln('Введите значение x: ');

readln(x);

writeln('Введите значение y: ');

readln(y);

z:=exp(-x*ln(2))-cos(x)+sin(2*x*y);

writeln('z = ',z);

end.

3) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);

writeln('y = ',y);

end.

4) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=x-10*sin(x)+abs(sqr(x)*sqr(x)-sqr(x)*sqr(x)*x);

writeln('y = ',y);

end.