[Ultras]

только не пойму, почему тема называется "отнять", а надо прибавить в условии задачи?

если Delphi то:

Код:

var
  list: TStringList;
  i: integer;
  s: string;
begin
  s := '';
  list := TStringList.Create;
  for a:=1 to 5 do
  begin
    s := s + '9';  
    list.Add(s);  
  end;
  Memo1.Lines.Text := list.Text;
  list.Free;
end;

на выходе в Memo1 получим:

Код:

9
99
999
9999
99999

можно и так сделать:

Код:

var
  i: integer;
  s: string;
begin
  s := '';
  for a:=1 to 5 do
  begin
    s := s + '9' + #13;  
  end;
  Memo1.Lines.Text := s;
end;

на выходе тоже будет:

Код:

9
99
999
9999
99999