uses crt; var a,b,i:longint; {---Ham-giai-thua---} function gt(a,b:longint):longint; var s,i,c,d,e:longint; begin c:=1;d:=1;e:=1; for i:=1 to a do c:=c*i; for i:=1 to b do d:=d*i; s:=c+d; writeln(a,'!+',b,'!=',s); for i:=1 to s do e:=e*i; writeln(s,'!=',e); writeln('-> (',a,'!+',b,'!)!=',e); end; {---Chuong-trinh-chinh---} begin clrscr; write('Nhap a,b: '); readln(a,b); gt(a,b); readln end.
