Даны 3 натуральных числа а,b,c (все они <13). Вычислите S=а!+b!+c! - Pascal(Паскаль)

program summa_factorialov;
var a,b,c,s,aa,bb,cc:integer;    {aa,bb,cc-результат факториала числа} 
  {функция для вычисления факториала}
 function fact(x:byte):integer;
 begin
 if x=0 then fact:=1
 else fact:=fact(x-1)*x;
 end;
   {конец функции}
{основная программма}
begin
write('a=');{ввод исходных значений}
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);{закончили ввод}
{считаем факториалы каждого в отдельности}
aa:=fact(a);
bb:=fact(b);
cc:=fact(c);
writeln('a!=',aa);
writeln('b!=',bb);
writeln('c!=',cc);
s:=aa+bb+cc;
writeln('S=',s);
end.