17 lines
175 B
Smalltalk
17 lines
175 B
Smalltalk
PROGRAM Demo
|
|
VAR
|
|
a int16 := 0;
|
|
b int16 := 0;
|
|
i int16 := 0;
|
|
END_VAR
|
|
|
|
WHILE a < 5 DO
|
|
a := a + 1;
|
|
END_WHILE;
|
|
|
|
FOR i := 1 TO 10 DO
|
|
b := b + i;
|
|
END_FOR;
|
|
|
|
END_PROGRAM
|