la somme des factorielles des chiffre d'un entier n

program Hello;
uses crt;
type tab=array[1..50]of string;
var n:integer;

procedure s(var n:integer);
begin
repeat
    writeln('n: '); readln(n);
until n in [2..50];
end;

function fac(n:integer):integer;
var chn:string; i,j,e,num,fn:integer;
begin
str(n,chn);
fn:=0;
for i:= 1 to length(chn)do
    begin
    val(chn[i],num,e);
    for j:= 1 to num do
        fn:= fn+j;
    end;
    writeln(fn);
end;


begin
  s(n);
  fac(n);
end.