1)дано целое многозначное число n.найти сумму цифр этого числа 2)найти произведение первых n натуральных чисел. 2)найти произведение первых n натуральных чисел.

а если число трехзначное?)))

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.