Ребяяят,нужна помощь,очень срочно
Сомневаюсь в правильности своих решений
Помогите!!!:)

0,875=7/8
пример в паскале:
var
  i,x,k:integer;
begin
 for x:=1 to 10000 do
  begin
  k:=0;
  for i:=10 downto 2 do
   begin
   if (x mod i=i-1) then k:=k+1;
   end;
   if k=9 then  writeln('Полученное число:',x);
  end;
end.