Строить БЛОК-СХЕМ на эту текст программ внизу только Введите число: ');
readln(n);
sum := 0;
mult := 1;
while n > 0 do begin
sum := sum + n mod 10;
mult := mult * (n mod 10);
n := n div 10
end;
writeln('сумма цифр =', sum);
writeln('Произведения цифр =', mult);
end.