21 lines
No EOL
407 B
Text
Executable file
21 lines
No EOL
407 B
Text
Executable file
d:=300;
|
|
|
|
{
|
|
y:= 2 + 2 - 8 * 7 / 1;
|
|
while (d < 1000)
|
|
x:= 10;
|
|
y := 30;
|
|
d := x * y + d;
|
|
print(d*2);
|
|
print (d*2);
|
|
print ( d *2 ) ;
|
|
print (d * 2 ) ;
|
|
read(d) ;
|
|
/*** comment */
|
|
///////// comment
|
|
/* ;; ; // */
|
|
case when (2 > 0) y:=2 else
|
|
{ y:=25 };
|
|
case when (2 > 0) print(y) else
|
|
{ print(x) }
|
|
} |