Function ProdDig(n:longint):longint; var p:longint; begin p:=1; while n>0 do begin p:=p*(n mod 10); n:=n div 10 end; ProdDig:=p end;
var f:Text; a,b,c:longint; begin Assign(f,'abc.txt'); Reset(f); Readln(f,a,b,c); Close(f); Assign(f,'abcout.txt'); Rewrite(f); Writeln(f,ProdDig(a+b+c)); Close(f) end.
Вариант без использования функции: var f:Text; a,b,c,p,s:longint; begin Assign(f,'abc.txt'); Reset(f); Readln(f,a,b,c); Close(f); s:=a+b+c; p:=1; while s>0 do begin p:=p*(s mod 10); s:=s div 10 end; Assign(f,'abcout.txt'); Rewrite(f); Writeln(f,p); Close(f) end.
num = int(input())
lst = []
i = 1
while i < num // 2 and i not in lst:
if num % i == 0:
print(i, num // i)
lst.append(num // i)
i += 1