source:
liacs/coco/tests/semantic-checks/read_assign.p1@
403
| Last change on this file since 403 was 2, checked in by , 15 years ago | |
|---|---|
| File size: 150 bytes | |
| Rev | Line | |
|---|---|---|
| [2] | 1 | program rontest; |
| 2 | ||
| 3 | var a,b : integer; | |
| 4 | var c,d : real; | |
| 5 | ||
| 6 | ||
| 7 | begin | |
| 8 | a := 4; | |
| 9 | b := 6; | |
| 10 | c := 3.5; | |
| 11 | ||
| 12 | while c < 10 do | |
| 13 | c := c+1; | |
| 14 | readinteger := c | |
| 15 | end. |
Note:
See TracBrowser
for help on using the repository browser.
