repeat-until und for schleife Frage

[Dagon]

Da ich zuvor nicht die Frage nicht richtig beantwortet habe, will ich's jetzt richtig machen:

Delphi-Quellcode:

function addiere(a : Integer) : String; 
VAR i, temp : INTEGER;
begin
  temp := 1;
  i := 1;
  repeat
    inc(i);   
    temp := i + Temp;
  until i=a;
  result := IntToStr(temp);
end;

So siehts für die Addition aus. Es sollte leicht übertragbar auf die Multiplikation sein!