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,FROM_ILLEGAL_CHARS,
	INVALID_MSGID,XPRIO autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,233def024614b352,start
X-Google-Attributes: gid103376,public
From: "�����Y�۵M�I" <jichen@csie.nctu.edu.tw>
Subject: A new hand's question
Date: 2000/05/07
Message-ID: <8f3992$ir1$1@netnews2.csie.nctu.edu.tw>#1/1
X-Deja-AN: 620211221
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
X-Complaints-To: ta@csie.nctu.edu.tw
X-Trace: netnews2.csie.nctu.edu.tw 957687906 19297 140.113.141.98 (7 May 2000
 08:25:06 GMT)
Organization: Computer Science & Information Engineering NCTU
X-MSMail-Priority: Normal
NNTP-Posting-Date: 7 May 2000 08:25:06 GMT
Newsgroups: comp.lang.ada
Date: 2000-05-07T08:25:06+00:00
List-Id: <comp.lang.ada>

Hi,
  How can I rewite the following code segment using a loop structure in Ada:

  k := (j+13)/27
loop:
  if k>10 then goto out
  k :=k+1
  i := 3*k-1
  goto loop
out: ......

Thank you very much