d:=300;


y:= 2 + 2 - 8 * 7 / 1;
while (d < 1000) do
      x:= 10;
      y := 30;
      d := x * y + d;
      print(d*2);
      print (d*2;
      print ( d *2    )  ;
      print                (d *    2 ) ;
      ;;;;
      a := { 1; 2 ; 3  ;4};
 d := read ();
 d := read(   ) ;
 /*** comment */
 ///////// comment
 /* ;; ; //    */
when (2 * 2 > 0 && d < 10 ||  9 / 3 && !a) then y:=2 else
         y:=25 ;