Люди добросердечные, на помощь!______________________Вычислить в Паскаль:1. y = x - x3

1. program task31177829;
2. var
3.  y: real;
4.  x: integer;
5. begin
6.  Writeln('1-ое ЗАДАНИЕ: ');
7.  Readln(x);
8.  y := x - (Power(x, 3)/3) + (Power(x, 5)/5);
9.  Writeln('Y = ', y);
10.  Writeln('ВТОРОЕ ЗАДАНИЕ: ');
11.  // если тут всё-таки sin(2*x*y), то пишем Sin(2*x*y)
12.  // в таком случае оно возьмёт значение y из прошлых расчётов
13.  Readln(x);
14.  y := Power(2, -x) - Cos(x) + Sin(2*x);
15.  Writeln('Y = ', y);
16.  Writeln('ТРЕТЬЕ ЗАДАНИЕ: ');
17.  Readln(x);
18.  y := (Power(x, 2) - 7*x + 10)/(Power(x, 2) - 8*x + 12);
19.  Writeln('Y = ', y);
20.  Writeln('ЧЕТВЁРТОЕ ЗАДАНИЕ: ');
21.  Readln(x);
22.  y := x - 10*Sin(x) + Abs(Power(x, 4) - Power(x, 5));
23.  Writeln('Y = ', y);
24. end.

во втором примере синус воспринимает переменную Y как прошлое значение? если так, то на 14 строке измените на:

1. y := Power(2, -x) - Cos(x) + Sin(2*x*y);