Deskripsi untuk soal nomor 35 - 36

Perhatikan potongan kode berikut:

var 
  n, temp : longint; 
begin 
  readln(n); 
  while n >= 10 do 
    temp := 1; 
    while n > 0 do 
    begin 
      temp := temp * (n mod 10); 
      n := n div 10; 
    end; 
    n := temp; 
end.