Цикл For! в Паскале!

[kolyan45]

1.Найти сумму натуральных чисел от 10 до 150.

2 Арифметическая прогрессия задана формулой An=3n+5. Вывести первые 10 членов этой прогрессит и найтиих сумму.

3.Найти произведение :P= (1+x)*(3+2x)*(5+3x) (n множетелей)

заранее спасибо!!!!!!!

[d3qoot]

1:

var i,k:integer;
begin
for i:=10 to 150 do
k:=k+i;
end;

2:

var 
s:string;
i,k,sum:integer;
begin
for i:=1  to 10 do
begin
k:=3*i+5;
sum:=sum+k;
s:=s+', '+inttostr(k);
end;
showmessage(s);
end;