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) }
}