19 lines
249 B
Plaintext
19 lines
249 B
Plaintext
|
PROGRAM thisProgram;
|
||
|
|
VAR
|
||
|
|
var1, a, b, c : INTEGER;
|
||
|
|
|
||
|
|
BEGIN {example}
|
||
|
|
a := 2;
|
||
|
|
var1 := 1;
|
||
|
|
b := 5;
|
||
|
|
c := 20;
|
||
|
|
|
||
|
|
LOOP b DO
|
||
|
|
var1 := var1 + a;
|
||
|
|
c := c - 1;
|
||
|
|
END;
|
||
|
|
|
||
|
|
LOOP a DO
|
||
|
|
b := b + 2
|
||
|
|
END
|
||
|
|
END. {example}
|