Miért nem működik? Azt szeretném, hogy a bekért alapot addig szorozza, ameddig a bekért kitevőt el nem éri. De mindig csak a kettő szorzatát kapom meg.

Esetleg így?

eredmeny:=alap;

Repeat

eredmeny:=eredmeny*alap;

Inc(n);

Until kitevo>n;

program Project1;

{$mode objfpc}{$H+}

uses

SysUtils;

var

alap, kitevo, i, eredmeny:int64;

begin

Repeat

Write('Alap: ');

Readln(Alap);

Until (alap>=1) and (alap<=10);

Repeat

Write ('Kitevo: ');

Readln(Kitevo);

Until (kitevo<=10) and (kitevo>=1);

eredmeny:=alap;

for i:=1 to kitevo-1 do

begin

writeln(i,' ',eredmeny);

eredmeny:=eredmeny*alap;

end;

Write('Eredmeny: ',eredmeny);

Readln;

end.