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

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.