Спо информатике! без массива! напишите в паскале! опишите этапы решения на компьютере нахождения значения a^b для целых чисел 0

Var
  a,b,i:integer;
begin
  sum:=1;
  readln(a,b);
  for i:=1 to b do
    sum:=sum*a;
  writeln(sum);
end.