Цикл

[aless23]

Прошу разобраться в программе на Pascal,и в том что я сделал не так,условие следующее:
Дано натуральное число n.Вычислить S=1+3+9+27...+3n.

Код Pascal:

program summa;
uses crt;
var a,b,c:longint;
begin
a:=1;
b:=1;
for a:=1 to 15 do
begin
b:=b*3;
c:=b+b*3;
end;
writeln(c);
readkey
end.

Это код что у меня получился...
Прошу помочь разобратся,заранее очень приоОочень благодарен!!!!

[RomiKon]

Слушай уточни задание может в формулке последние слагаемое не 3n а n в степени 3 ?

[MyLastHit]

begin
b:=b*3;
c:=b+b*3;
end;

не так, а так:

begin
b:=b*3;
c:=c+b*3;
end;

И собственно где натуральное число n?
Вводи его с клавиатуры:

readln(n);

потом в цикле уже не 15 а n:

for a:=1 to n do

И не жирно ли longint брать?) или 4+млрд это для вашей задачи нужный диапазон?)