Program BTT;
Uses crt;
Var a,b,t,aa,bb: extended;
m,n,i,j: longint;
Begin
Clrscr;
Write('Nhap a, b: '); Readln(a, b);
Write('Nhap m, n: '); Readln(m,n);
aa:=1; bb:=1;
For i:=1 to n do
aa:=aa*a;
For j:=1 to m do
bb:=bb*b;
t:=aa+bb;
Write('Tong la: ',t:0:2);
Readln
End.