var 
n : integer; 
f : real; 
{--------------------ïðîöåäóðà-----------}
Procedure fac(n:integer; var f:real); 
begin 
if (n=0) or (n=1)then f:= 1 else 
                             begin 
                          fac(n - 1, f); 
                          if n mod 7 =0 then f := f*n 
                             end 
end; 
{---------------êîíåö ïðîöåäóðû ----------}
begin 
write('Ââåäèòå íàòóðàëüíîå ÷èñëî n '); readln(n); 
 fac(n, f); 
writeln('ïðîèçâåäåíèå ', n, ' ðàâíî ', f:12:0) 
end.