PROGRAM test IS

BEGIN

    repeat
      if (a < 3) then
	exit
      elsif a > 3 then
	a := ar := b
      else
	return a+8
      endif

    until a = 0;

    for i := 1 downto 0 loop
      g := f(3, a)
    endloop;

    while (i < 5) loop
    endloop
END.