15 lines
388 B
Text
15 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
|