Паскаль

[RykunD]

Привет)
Ребята помогите мне пожайлуста мне написать программы по процедурам и функциям, последния 2 прграммы на этот семестр))
Вот эти программы:

1)d=r*m+g*n+l*f
где все x,y и z с (i)
m=(x*x+y*y) сумма i от 1 до 100
n=(x*x+z*z) сумма i от 1 до 20
f=(y*y+z*z) сумма i от 1 до 50

2)A=ctg(x)+m*n+f*g
где
m=(sin(k+x))/(1+cos(x)) сумма умножений k от 1 до 5
n=((cos(x))^2)/(sin(x))
f=(sin(2y)*cos(y))/(1+cos(y))
g=sin(y+k) сумма умножений k от 1 до 10

Вот собственно и всё)
Спасибо большое ребята)

[RykunD]

Очень прошу, я просто реально в них почти ничего не понимаю понимаю...
Ребята я знаю вы лучшие