Помогите с задачками по Паскалю

[NTFS]

1)Дано: натуральное n , действительные а1,...,аn.Выяснить образуют ли возрастающую последовательность числа:a1,...,an,2*a1,3*a2,...,(n+1) an.
2)Дано: натуральное n ,действительные a1,...,an.Вычислить:
a1+a2(a2-1)+....+an(an-1)....(an-n+1)
Помогите пожалуста!!!!

[SNUPY]

Ну и в чем нужна помощь?

[Stilet]

2)Дано: натуральное n ,действительные a1,...,an.Вычислить:
a1+a2(a2-1)+....+an(an-1)....(an-n+1)

Ну это в цикле:

for i:=1 to n-1 do s:=a[i]+a[2]*(a[2]-1);

1)Дано: натуральное n , действительные а1,...,аn.Выяснить образуют ли возрастающую последовательность

Тут в цикле нужно проверять пока не конец последовательности и пока a[i]<=a[i+1]; Если это условие не выполняется где нибудь то последовательность можно не считать возрастающей (в принципе, хотя тут спорный вопрос).

[МаксимNEWProgramm]

1)
for i:=1 to n-1 do
if a[i]>a[i+1]then begin writeln('No');break;end;
2)
s:=a[1];
for i:=2 to n do
s:=s+a[i]*(a[i]-1);s:=s+a[n]*(a[n]-n+1);