4!+a!-10 a-целое число ,найти факториал ,составить программу паскаль

//PascalABC.NET 3.2 сборка 1318Var  a:integer;function fact(a:integer):integer;  begin    if a=0 then fact:=1 else fact:=fact(a-1)*a;  end;begin  readln(a);  writeln(fact(4)+fact(a)+10);end.Пример ввода:4Пример вывода:58