Delphi-Quellcode:
var i, Ergebnis :integer;
zahlen: Array[1..3] of Integer;
begin
x:=edit1.text;
zahlen[1]:= strToInt(x[1]);
zahlen[2]:= strToInt(x[2]);
zahlen[3]:= strToInt(x[3]);
for i:= 1 to 3 do
zahlen[i] := zahlen[i]*zahlen[i]*zahlen[i];
Result := // Ab hier is wieder klar, oder?
Im Grunde brauchst du, um ne for-Schleife verwenden zu können, das ganze doch nur als Array anlegen,
und als Index die Schleifenvariable zu nehmen.
(Und man könnte natürlich auch das einlesen mit in die Schleife ziehen, konsequenter Weise)