/in/foo.cc:33:39: warning: character constant too long for its type
 while (a+b>c)and(ans9999 then writeln('The voyage seemed endless...')
                                       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/in/foo.cc:1:1: error: 'program' does not name a type
 program st1;
 ^~~~~~~
/in/foo.cc:3:1: error: 'var' does not name a type
 var a,b,c,x,y,z,ans:longint;
 ^~~
/in/foo.cc:5:1: error: 'procedure' does not name a type
 procedure change(var m,n:longint);
 ^~~~~~~~~
/in/foo.cc:7:1: error: 'var' does not name a type
 var t:longint;
 ^~~
/in/foo.cc:9:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:11:6: error: 'm' does not name a type
 t:=m;m:=n;n:=t;
      ^
/in/foo.cc:11:11: error: 'n' does not name a type
 t:=m;m:=n;n:=t;
           ^
/in/foo.cc:13:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:15:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:27:1: error: expected unqualified-id before 'if'
 if a>b then change(a,b);if b>c then change(b,c);
 ^~
/in/foo.cc:27:25: error: expected unqualified-id before 'if'
 if a>b then change(a,b);if b>c then change(b,c);
                         ^~
/in/foo.cc:29:1: error: expected unqualified-id before 'if'
 if a>b then change(a,b);
 ^~
/in/foo.cc:31:1: error: 'ans' does not name a type
 ans:=-1;
 ^~~
/in/foo.cc:33:1: error: expected unqualified-id before 'while'
 while (a+b>c)and(ans9999 then writeln('The voyage seemed endless...')
 ^~~~~
/in/foo.cc:37:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:39:1: error: 'readln' does not name a type
 readln;
 ^~~~~~
/in/foo.cc:41:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:43:1: error: 'end' does not name a type
 end.
 ^~~