Объяснение:

Program zero;

Var i:Integer;

Begin

For i:=1000 to 999999 do

Begin

If (i mod 5 = 0) and (i mod 7 = 0) then

Whiteln('Возможный индекс: ', i);

End;

Readln

End.

Ps. Эта программа для Паскаля