|
Last change
on this file since 80 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.
