function f(n: byte): real; begin if n=0 then f:=1 else f:=f(n-1)*n; end; var m,n: byte; s: real; begin write('Ââåäèòå m è n: '); readln(m,n); s:=f(m)+f(m+n); writeln('S = ',s); readln; end.