Помогите, пожалуйста. Нужно написать программу суммы двух факториалов, используя цикл(ы). program название; var переменные: integer; begin writeln('введите число') readln(f) for i:= а вот дальше не знаю, как...

program factorial; var n,s:integer; readln(n); if (n=0) then writeln('0!=1') else if (n<0) then writeln('Определяется только для положительных чисел') else begin s:=1; for i:=1 to n do s:=s*i; writeln(n,'!='s:0:0); end;