Ответ:

program aaa;

var

 numb,s,mult: integer;

begin

 read(numb);

 if (numb mod 2 = 0) or (numb mod 7 = 0)then

   begin

      while numb > 0 do

   begin

      s := s + numb mod 10;

      numb := numb div 10;

    end;

      writeln(s);

 end

    else

   mult := 1;

   while numb > 0 do

begin

       mult := mult * (numb mod 10);

       numb := numb div 10

   end;

  writeln(mult);

end.

Объяснение: