16 lines
282 B
Text
16 lines
282 B
Text
|
Module Checkit {
|
||
|
|
a=Stack
|
||
|
|
Stack a {
|
||
|
|
Push 100, 200, 300
|
||
|
|
}
|
||
|
|
Print StackItem(a, 1)=300
|
||
|
|
Stack a {
|
||
|
|
Print StackItem(1)=300
|
||
|
|
While not empty {
|
||
|
|
Read N
|
||
|
|
Print N
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
Checkit
|