source: liacs/coco/tests/simple/correct8.p0@ 236

Last change on this file since 236 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: 232 bytes
Line 
1program smerig;
2
3function plus(a, b: integer): integer;
4begin
5 plus := a+b
6end;
7
8function fac(a: integer): integer;
9begin
10 if (a = 0) then
11 fac := 1
12 else
13 fac := a*fac(a- 1)
14end;
15
16begin
17 writeinteger(fac(plus(3,2)))
18end.
Note: See TracBrowser for help on using the repository browser.