/in/foo.cc:1:1: error: 'program' does not name a type
    1 | program vijos1309(Freewing);
      | ^~~~~~~
/in/foo.cc:3:1: error: 'var' does not name a type
    3 | var str:ansistring;
      | ^~~
/in/foo.cc:4:5: error: 'n' does not name a type
    4 |     n,m,ans:qword;
      |     ^
/in/foo.cc:6:1: error: 'begin' does not name a type
    6 | begin
      | ^~~~~
/in/foo.cc:8:12: error: expected constructor, destructor, or type conversion before '(' token
    8 |      readln(m);
      |            ^
/in/foo.cc:9:9: error: expected constructor, destructor, or type conversion before '(' token
    9 |      val(copy(str,(length(str)-m+1),m),n);
      |         ^
/in/foo.cc:10:6: error: 'ans' does not name a type
   10 |      ans:=(3*n+1) mod (1<<m);
      |      ^~~
/in/foo.cc:11:11: error: expected constructor, destructor, or type conversion before '(' token
   11 |      write(ans);
      |           ^
/in/foo.cc:12:1: error: 'end' does not name a type
   12 | end.
      | ^~~