Question

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

Answer 1

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