12 lines
203 B
Text
12 lines
203 B
Text
! Loops/Break - simula67 - 08/03/2017;
|
|
begin
|
|
integer num,seed;
|
|
seed:=0;
|
|
while true do
|
|
begin
|
|
num:=randint(1,20,seed);
|
|
outint(num,2); outimage;
|
|
if num=10 then goto lab;
|
|
end;
|
|
lab:
|
|
end
|