Дано:четырёхзначное число. Найти:сумму его цифр,произведение

Question

Дано:четырёхзначное число.
Найти:сумму его цифр,произведение

Answer 1

Program tz;
var
a,b,c:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
c:=0;
for i:=1 to 4 do begin
    b:=b*(a mod 10);
    a:=a div 10;
    c:=c+(a mod 10);
end;
writeln('proizvedenie = ',b);
writeln('summa = ',c);
readln;
end.