7 lines
89 B
Plaintext
7 lines
89 B
Plaintext
X := ( ( 1 + 2 ) - 3 ) + ( 1 + 3 );
|
|
Y := 0;
|
|
while X>0 do
|
|
Y := Y+X;
|
|
X := X-1
|
|
endwhile
|