Вычислить в паскаль 1. y=x-x^2/3+x^6/4 2. y= 3^-x+cos(x)-sinx^2 3. y=x^3+9x+12/x^2-6x+15 4. y= x+12sin(2x)+ |x^3+x^5| умоляю, напишите с кодом программ, заранее!

var x, y: real;

begin

 readln(x);

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

 writeln(y);

end.

var x, y: real;

begin

 readln(x);

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

 writeln(y);

end.

var x, y: real;

begin

 readln(x);

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

 writeln(y);

end.

var x, y: real;

begin

 readln(x);

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

 writeln(y);

end.

4.Основные свойства алгоритмов следующие:

1.   Понятность для исполнителя — исполнитель алгоритма должен понимать, как его выполнять. Иными словами, имея алгоритм и произвольный вариант исходных данных, исполнитель должен знать, как надо действовать для выполнения этого алгоритма.

2.   Дискpетность (прерывность, раздельность) — алгоpитм должен пpедставлять пpоцесс pешения задачи как последовательное выполнение пpостых (или pанее опpеделенных) шагов (этапов).

3.   Опpеделенность — каждое пpавило алгоpитма должно быть четким, однозначным и не оставлять места для пpоизвола. Благодаpя этому свойству выполнение алгоpитма носит механический хаpактеp и не тpебует никаких дополнительных указаний или сведений о pешаемой задаче.

4.   Pезультативность (или конечность) состоит в том, что за конечное число шагов алгоpитм либо должен пpиводить к pешению задачи, либо после конечного числа шагов останавливаться из-за невозможности получить решение с выдачей соответствующего сообщения, либо неограниченно продолжаться в течение времени, отведенного для исполнения алгоритма, с выдачей промежуточных результатов.

5.Массовость означает, что алгоpитм pешения задачи pазpабатывается в общем виде, т.е. он должен быть пpименим для некотоpого класса задач, pазличающихся лишь исходными данными. Пpи этом исходные данные могут выбиpаться из некотоpой области, котоpая называется областью пpименимости алгоpитма.

#include <iostream>
#include <cmath>
using namespace std;

void main() 
{
int n,sum=0; 
float y,k=0; 
cin >> n; 
int *mass = new int[n]; 
for (int i = 0;i < n;++i) 
{
cin >> mass[i]; 
} 
for (int i = 0;i < n;++i) 
{ 
if (mass[i] >0 )
{
k++;
y=pow(mass[i],2); 
cout<<y;
sum+=mas[i]
}
} 
system("pause"); 
}

2)#include <iostream>
#include <cmath>
using namespace std;

void main() 
{
int s,p,r,day=0;
cin >> s>>p>>r;
float km=s;
while(r>km)
{
km+=km*p/100;
day++;
}
cout << " km = " << km << " day = " << day << endl;
system ("pause");
}