source:
liacs/coco/tests/wrongsyntax/notboollike2.p1@
228
Last change on this file since 228 was 2, checked in by , 15 years ago | |
---|---|
File size: 121 bytes |
Rev | Line | |
---|---|---|
[2] | 1 | program yabt; |
2 | ||
3 | var | |
4 | ach, | |
5 | weeh: integer; | |
6 | ||
7 | begin | |
8 | if ach then | |
9 | writeinteger(ach) | |
10 | else | |
11 | writeinteger(weeh) | |
12 | end. |
Note:
See TracBrowser
for help on using the repository browser.