uses crt;
var A, B, C, i, Y : integer;
function G(X : integer) : longint;
begin
G := 1;
for i := 1 to X do G := G * i;
end;
begin
clrscr;
write('Nhap A, B, C = '); readln(A, B, C);
write('Tong giai thua 3 so hang = ', G(A) + G(B) + G(C));
readln
end.