source:
liacs/coco/tests/semantic-checks/read_assign.p1@
149
Last change on this file since 149 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.