program tinh_tong;
uses crt;
var a,b,c,n,m,p:integer;
t:int64;
{---Chuong-trinh-con---}
function gt(k,h:integer):int64;
var i:integer;
begin
gt:=1;
for i:=1 to h do
gt:=gt*k;
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);
t:=gt(a,n)+gt(b,m)+gt(c,p);
write('Tong la: ',t);
readln;
end.
