Last change
on this file since 240 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:
518 bytes
|
Line | |
---|
1 | program bokmal;
|
---|
2 |
|
---|
3 | procedure noe;
|
---|
4 | var
|
---|
5 | en, to, tre, fire, fem, seks, sju, atte, ni, ti, elleve, tolv, tretten, fjorten, femten: integer;
|
---|
6 | var
|
---|
7 | mange: real;
|
---|
8 |
|
---|
9 | begin
|
---|
10 | en := 1;
|
---|
11 | to := 2;
|
---|
12 | tre := 3;
|
---|
13 | fire := 4;
|
---|
14 | fem := 5;
|
---|
15 | seks := 6;
|
---|
16 | sju := 7;
|
---|
17 | atte := 8;
|
---|
18 | ni := 9;
|
---|
19 | ti := 10;
|
---|
20 | elleve := 11;
|
---|
21 | tolv := 12;
|
---|
22 | tretten := 13;
|
---|
23 | fjorten := 14;
|
---|
24 | femten := 15;
|
---|
25 |
|
---|
26 | mange := en + to + tre + fire + fem + seks + sju + atte + ni + ti + elleve + tolv + tretten + fjorten + femten;
|
---|
27 |
|
---|
28 | writereal(mange)
|
---|
29 | end;
|
---|
30 |
|
---|
31 | begin
|
---|
32 | noe
|
---|
33 | end.
|
---|
Note:
See
TracBrowser
for help on using the repository browser.