Thank you for your help.
I got the answer!!

"Preben Randhol" <randhol+nospam@pvv.org> ���g��l��
news:slrn8habe9.8mc.randhol+nospam@kiuk0156.chembio.ntnu.no...
> On Sun, 7 May 2000 16:22:03 +0800, �����Y�۵M�I wrote:
> >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: ......
>
> By reading:
>
>    http://adahome.com/Tutorials/Lovelace/s5s3.htm
>
> For furter reading:
>
>    http://adahome.com/Tutorials/Lovelace/lovelace.html
>
> I'd also like to recommend the book "Ada 95 Problem Solving and Program
> Design" :
>
>    http://www.seas.gwu.edu/~mfeldman/cs1book/
>
> for a nice introduction to the Ada 95 language.
>
> --
> Preben Randhol -- [randhol@pvv.org] -- <http://www.pvv.org/~randhol/>
>          "Det eneste trygge stedet i verden er inne i en fortelling."
>                                                       -- Athol Fugard