Нужна помощь с задачами

[Vlad884]

Помогите пожалуйста с решением задач в Turbo Pascal
1)
2)
3)
4)
5)
6)

[Stilet]

Все что увидел это:

var a,x:real;
begin
 readln(x); readln(a); writeln((tan(a*x)-x*x)/(2+a*a)); readln;
end.

[Вадим Мошев]

Vlad884
Я могу решить вам эти задачи. За небольшое вознаграждение.
напишите мне на адрес: vadimFreelance (сoбака) yandex (точка) ru

Подробная информация у меня по ссылке в подписи.