Профиль пользователя vk509681459

var x,L,M:integer;
begin
readln(x);
L:=1;
M:=0;
while x>0 do begin
M:=M+1
if (x mod 7)
mod <> 0
then
L:"=L * (x mod 7);
x:=x div 7
end;
writeln (L);
writeln (M)
end.