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.
* переменная e — код ошибки при переводе из строкового типа в числовой;
* переменная a — цифра числа n;
* переменная i — для цикла.