1) Дано целое многозначное число…

А если число трехзначное?) var n,i,p: integer; s: string; Begin read (n); s: =str (n); {переводим число в строку} n: =0; for i: =1 to length (s) do n: =n+int (s[i]); {переводим каждый символ строки обратно в цифру} writeln (n); read (n); p: =1; for i: =1 to n do p: =P*i; writeln (p); End.