blob: d30b46398009868ee89507f60d198f4a70257f40 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
DECLARE I : INTEGER
DECLARE Total : INTEGER
Total <- 0
FOR I <- 3 TO 1
Total <- Total + 1000
NEXT I
FOR I <- 2 TO 2
Total <- Total + I
NEXT I
FOR I <- 3 TO -1 STEP -2
Total <- Total + I
NEXT I
WHILE FALSE
Total <- Total + 1000
ENDWHILE
I <- 0
WHILE I < 3
Total <- Total + I
I <- I + 1
ENDWHILE
REPEAT
Total <- Total + 10
UNTIL TRUE
I <- 0
REPEAT
I <- I + 1
UNTIL I = 3
OUTPUT Total, ":", I
|
