Wir müssen mit einer For To Do Schleife Potenzen berechnen, aber ich verstehe nicht wo der Fehler bei mir liegt, bzw. was ich anders machen muss, damit es funktioniert..

So sieht mein Programm bis jetzt aus:

program informatik;
var exponent,basis,potenz,schleife,ergebnis:integer;
begin
 writeln('Gib bitte deine Basis ein:');
 readln(basis);
 writeln('Gib bitte deinen Exponenten ein:');
 readln(exponent);
 schleife:=exponent;
 for potenz:=1 to exponent do
 begin
   ergebnis:=basis*basis;
   writeln(ergebnis);
 end;
end.