PROGRAM simple VAR x AS INT ; BEGIN x := READINT ; WRITEINT 2 MUL x ; WRITELN ; END