while True do begin
   var num := RandomInt(20);
   PrintLn(num);
   if num=10 then Break;
end;