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

var

   a, s, p : integer;

begin

   p := 1;

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

   while a gt; 0 do begin      

       s += a mod 10;

       p *= a mod 10;

       a := a div 10;

   end;

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

   writeln('творенье ', p);

end.