14 lines
388 B
Text
14 lines
388 B
Text
Module Checkit {
|
|
Dim A(10,10)<<Random(1, 20)
|
|
For k=1 to 2 {
|
|
For i=0 to 9 {
|
|
For j=0 to 9 {
|
|
Print A(i,j)
|
|
if A(i,j)=20 then goto there
|
|
}
|
|
}
|
|
there:
|
|
Print "...ok", k
|
|
}
|
|
}
|
|
Checkit
|