Re: histrionics

[p.obry@der.edf.fr]

Just to fix some syntax error in Robert example:

  with Ada.Integer_Text_IO;
  procedure Primes (N:Positive) is
    Total: Natural;
  begin
    for I in 1..N loop
      Total := 0;
      for J in 1..I loop
        if I mod J = 0 then 
           Total := Total + 1;
        end if;
        exit when Total > 2;
      end loop;
      if Total = 2 then 
         Ada.Integer_Text_IO.Put(I);
      end if;
    end loop;
  end Primes;

Pascal.