найдите произведение цифр заданного k-значного числа)

vark, s: integer;beginreadln(k);s:=1;while k > 0 do  begin  s := s * (k mod 10);  k := k div 10;  end;writeln(s);end.