RosettaCodeData/Task/Loops-Break/S-BASIC/loops-break-2.basic

15 lines
167 B
Text
Raw Permalink Normal View History

2024-07-13 15:19:22 -07:00
var n = integer
repeat
begin
n = int(rnd(1) * 20)
print n;
if n <> 10 then
print int(rnd(1) * 20)
end
until n = 10
print " That's all!"
end