Написать программу, находяшую сумму и произведение цифр четырехзначного числа

var

   a, s, p : integer;

begin

   p := 1;

   repeat a := ReadInteger('введите 4-х значное число: ') until (a > 999) and (a < 10000);

   while a > 0 do begin      

       s += a mod 10;

       p *= a mod 10;

       a := a div 10;

   end;

   writeln('сумма ', s);

   writeln('произведение ', p);

end.