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

15 lines
167 B
Plaintext

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