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