source: liacs/coco/tests/code-generation/plus.p0@ 232

Last change on this file since 232 was 2, checked in by Rick van der Zwet, 15 years ago

Initial import of data of old repository ('data') worth keeping (e.g. tracking
means of URL access statistics)

File size: 251 bytes
RevLine 
[2]1program calculatortje;
2
3var
4 foo,
5 bar: integer;
6
7function plusi(a, b: integer): integer;
8
9begin
10 plusi := a + b
11end;
12
13begin
14 foo := readinteger;
15 writeinteger(foo);
16 bar := readinteger;
17 writeinteger(bar);
18 writeinteger(plusi(foo,bar))
19end.
Note: See TracBrowser for help on using the repository browser.