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

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.