with adalogo;
use adalogo;

procedure NONAME is
  b:boolean:=true;
  i:integer:=0;
  j:integer:=0;
begin

  --wird erkannt und beendet
--  while true loop
--    null;
--  end loop;

--  while i loop --fehlermeldung
--    null;
--  end loop;

  while i<5 loop
    put("1");
    i:=i+1;
  end loop;
  new_line;
  
  i:=0;
  while b loop
    put("2");
    i:=i+1;
    if i>=5 then b:=false; end if;
  end loop;
  new_line;
  
  i:=0; b:=true;
  while b and i<10 loop
    put("3");
    i:=i+1;
    if i>=5 then b:=false; end if;
  end loop;
  new_line;

  i:=0; b:=true;
  while b or i<10 loop
    put("4");
    i:=i+1;
    if i>=5 then b:=false; end if;
  end loop;
  new_line;
  
  i:=0;
  while true loop
    j:=0;
    while true loop
      put("j");
      j:=j+1;
      if j>2 then exit; end if;
    end loop;
    put("i");
    i:=i+1;
    if i>2 then exit; end if;
  end loop;
  new_line;
  
end;