elna/tests/print_in_loop.eln

var i: Int;
begin
  i := 1;

  while i < 6 do
  begin
    writei(i);
	i := i + 1
  end;
end.