source:
liacs/coco/tests/semantic-checks/read_assign.p1@
71
Last change on this file since 71 was 2, checked in by , 15 years ago | |
---|---|
File size: 150 bytes |
Line | |
---|---|
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.