Алгоритм разложения натурального числа на простые множители. Язык программирования Pascal

Укажите сумму чисел, которые программа выведет на экран. var x, L, M: longint; begin x := 727; L:=0; M:=0; while x > 0 do begin L:= L + 1; if x mod 2 = 0 then M:= M + (x mod 8) div 2; x:= x div 8; end; writeln(L); write(M); end.

Восстановите программу разложения натурального числа на простые множители.

Укажите задачу, которую решает приведенная ниже программа. var i, n,s : longint; begin readln(n); s := 0; for i := 1 to n-1 do if (n mod i) = 0 then s := s + i; writeln( 'S = ', s); end.