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