procedure TForm1.FormCreate(Sender: TObject);
var i,a,ss,res,deg:integer;
begin
res:=1; //рез-ат
dig:=2; //число
deg:=10; //степень
for i:=1 to deg do
begin
res:=1;
for a:=1 to i do res:=res*dig;
showmessage(inttostr(res));
end;
end;