Помогите пожалуйста с задачей по информатике!Без массива!Напишите в паскале!Очень...

Question

Помогите пожалуйста с задачей по информатике!Без массива!Напишите в паскале!Очень надо!!
Опишите этапы решения на компьютере задачи нахождения значения a^b для целых чисел 0<a,b<10.

Answer 1

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