program tinh_tong;
uses crt;
var a,b,c,n,m,p:integer;
{---Chuong-trinh-con---}
function luy_thua(q,k:integer):longint;
var t:longint;
i:integer;
begin
t:=1;
for i:=1 to k do
t:=t*q;
luy_thua:=t;
end;
{---Chuong-trinh-tinh-TLT---');
program tinh_tong;
var tlt:longint;
begin
tlt:=luy_thua(a,n)+luy_thua(b,m)+luythua(c,p);
write(tlt);
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
write('Nhap n: '); readln(n);
write('Nhap m: '); readln(m);
write('Nhap p: '); readln(p);
tinh_tong;
readln;
end.
