From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,24ac4e1c8cbfe3c
X-Google-Attributes: gid103376,public
From: p.obry@der.edf.fr
Subject: Re: histrionics
Date: 1999/09/22
Message-ID: <7s9u7j$dpm$1@clnews.edf.fr>#1/1
X-Deja-AN: 528133356
X-MIMETrack: Serialize by Notes Client on Pascal
 OBRY/IPN/DER/EDFGDF/FR(Release 5.0a (France)|4 May 1999) at 22/09/99
 08:54:11, Serialize complete at 22/09/99 08:54:11
References: <37D670CE.855F96BD@interact.net.au>
 <m3puzttqkp.fsf@kiuk0156.chembio.ntnu.no> <37D678E4.9867000B@interact.net.au>
 <37d74de9@eeyore.callnetuk.com> <7r8c60$b2q$1@nnrp1.deja.com>
 <rtg6mdp71iv13@corp.supernews.com> <7r9rkj$g75$1@nnrp1.deja.com>
 <rtiq3si91iv24@corp.supernews.com> <7rcddd$bfd$1@nnrp1.deja.com>
 <37DECE9D.72D1E87E@mitre.org> <7s2l7b$kmr$1@nnrp1.deja.com>
 <37E81661.6DCA23E4@mitre.org>
X-Priority: 3 (Normal)
Content-Type: text/plain; charset="us-ascii"
X-Complaints-To: newsadm@news.edf.fr
X-Trace: clnews.edf.fr 937983027 14134 130.98.42.146 (22 Sep 1999 06:50:27
 GMT)
Organization: Direction des Etudes et Recherches EDF
Mime-Version: 1.0
NNTP-Posting-Date: 22 Sep 1999 06:50:27 GMT
Newsgroups: comp.lang.ada
Date: 1999-09-22T06:50:27+00:00
List-Id: <comp.lang.ada>

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.