$ include "seed7_05.s7i";

const proc: main is func
  local
    var integer: number is 0;
  begin
    repeat
      number := rand(0, 19);
      writeln(number);
      if number <> 10 then
        writeln(rand(0, 19));
      end if;
    until number = 10;
  end func;