old/PAS/Plotting/RECURS.PAS

var
 a : Word;
 n : Byte;
Function Rec(n : word): LongInt;
Begin
  if N > 1 then Rec:=Rec(n-1)*a else Rec := a;
End;
Begin
  REadln(a,n);
  WriteLn(Rec(n));
  ReadLn;
End.