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

Var A:integer; Begin A:=0; While A<1000000 do    Begin    WriteLn(A);    A:=A+723;    End; End.