{$N+}
program de;
  var
  n,l:extended;
  j:integer;
begin
   read(n);
   if n>6 then
   repeat
   l:=1;
   repeat
   l:=l*7;
   until n<l*7;
   n:=n-l;
   until n<7;
   j:=round(n);
   write(j);
end.

Thank you!!!!!  What limit Extended?