RosettaCodeData/Task/Loops-Break/Delphi/loops-break.pas

program Project5;

{$APPTYPE CONSOLE}

var
  num:Integer;
begin
  Randomize;
  while true do
  begin
    num:=Random(20);
    Writeln(num);
    if num=10 then break;
  end;
end.