Ascending primes: Difference between revisions

procedure ShowAscendingPrimes(Memo: TMemo; Prog: TProgress);

{Write Ascending primes up to 123,456,789 }

var I,Cnt: integer;

var S: string;