sử dụng chương trình con tính (a!+b!)! .Làm giúp mình ạ ,mình cảm ơn. Mình cần gấp lắm ạ

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.