Оптимизация

[Красноглаз]

День добрый! Помогите советом, как сделать программу короче, сохранив функционал=)

program first;
label 1, 2, 3;
var
a, b, sum, n, p, z, g:integer;
begin
writeln('Ни одно значение не может быть равным нулю');
b:=1; 
sum:=0; 
1 : writeln('1.Введите количество лет');
readln(n); 
if n<=0 then goto 1;
2 : writeln('2.Количество долларов');
readln(z);
if z<=0 then goto 2;
3 : writeln('3.Введите количество лет, сумма подарка которых вас интересует');
readln(g);
if g<=0 then goto 3;
for a:=0 to n do
  begin
    sum:=sum+a+b;
    b:=(b+a)*2;
  end;
  writeln('1.Общая сумма на эти годы ',sum);
  b:=1;
  sum:=0;
  p:=1;
  for a:=0 to g do
  begin
    b:=(p+a);
    p:=b*2;
  end;
  writeln('3.сумма подарка в эти годы ',b);
  a:=0;
  b:=1;
  sum:=0;
   repeat
  begin
    sum:=sum+a+b;
    b:=(b+a)*2;
    a:=a+1;
  end;
  until z<=sum;
writeln('2.Возраст, на который накопится энное количество денег ',a);
end.

[Vanta11a]

1 : writeln('1.Введите количество лет');
readln(n);
if n<=0 then goto 1;

Пишу "двадцать" и программа вылетает, но это так, между делом.

Я так понял, что программа должна посчитать, через какое время накопится сумма, достаточная на подарок? Тогда, я думаю, проще будет считывать все по очереди в одном цикле Try и ловить Except`ы, что, кстати, решит вышеуказанную проблему.

Ну и хотелось бы увидеть постановку задачи, этот код туго переваривается.

[Красноглаз]

Сообщение от Vanta11a

1 : writeln('1.Введите количество лет');
readln(n);
if n<=0 then goto 1;

Пишу "двадцать" и программа вылетает, но это так, между делом.

Я так понял, что программа должна посчитать, через какое время накопится сумма, достаточная на подарок? Тогда, я думаю, проще будет считывать все по очереди в одном цикле Try и ловить Except`ы, что, кстати, решит вышеуказанную проблему.

Ну и хотелось бы увидеть постановку задачи, этот код туго переваривается.

Условие: Когда я родился, мой дядя подарил мне 1 долар. В каждый последующий день рождения он дарил сумму в 2 раза больше предыдущей плюс еще столько долларов, сколько лет мне исполнилось.
21.10.11
Написать программу, которая:
1) Находит сумму подарка, когда мне исполнится n лет
2) Какая общая сумма подаренная дядей, когда мне исполнится n лет
3) Через сколько лет сумма всего подаренного дядей станет равной или превысит введенное кол-во долларов

[Vanta11a]

Ну тогда сделать цикл

repeat
until

условием поставить

(i>=n) and (summ>=summ_need)

Т.е. код находит и количество лет (проверка через сумму), и количество денег (проверка через года).
Ну естественно поставить "отсечку" после того года, когда сумма превысит искомую.