uses crt;
var a,b,i,x: integer;
function giaithua(a: integer): integer;
var i,s: integer;
begin
    s:=1;
    for i:=2 to a do s:=s*i;
end;
begin
clrscr;
    write('Nhap hai so a,b: '); readln(a,b);
    x:=a;
    for i:=1 to b do a:=a*x;
    write(a+giaithua(x)+giaithua(b));
    readln
end.

uses crt;
var a, b: byte;
    result: qword;

function exponent(a, b: byte): longint;
var i, result: longint;
begin
    result:=1;
    
    for i:=1 to b do result:=result * a;
    
    exit(result);
end;

function factorial(n: byte): longint;
var i, result: longint;
begin
    result:=1;
    
    for i:=2 to n do result:=result * i;
    
    exit(result);
end;

begin
clrscr;
    read(a, b);
    
    writeln(exponent(a, b) + factorial(a) + factorial(b));
readln; readln;
end.