Составить программу, которая по заданному положителыюму целому числу n (длинное целое) находит сумму s и произведение p его цифр и выводит их на экран дисплея.

var
n,s,p,e:integer;
i:byte;
st_n:string;
a:word;

BEGIN
write('Введите целое число: ');
readln(n);                         {получить число}

s:=0;
p:=1;
str(n,st_n);                       {преобразовать его в строку}
for i:=1 to length(st_n) do
 begin
  val(st_n[i],a,e);                {преобразовать символ строки в цифру}
  if e<>0 then
   begin
    writeln('Ошибка преобразования в число!');
    halt;
   end;
  s:=s+a;
  p:=p*a;
 end;

writeln('Сумма цифр введенного числа: ',s);
writeln('Произведение цифр введенного числа: ',p);
END.