Составьте программу для вывода на экран всех чисел делящих на 723 и меньше 1млн

Program z1;
var i:integer;
begin
for i:=99999 downto 723 do
if i mod 723=0 then
write (i,' ');
end.