/in/foo.cc:16:34: warning: character constant too long for its type
   if s[length(s)]=c then WriteLn('Right') else begin
                                  ^~~~~~~
/in/foo.cc:1:1: error: 'program' does not name a type
 program P1055;
 ^~~~~~~
/in/foo.cc:2:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:4:3: error: 'a' does not name a type
   a,i,t:integer;
   ^
/in/foo.cc:5:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:7:3: error: 'b' does not name a type
   b:=s;
   ^
/in/foo.cc:8:3: error: expected unqualified-id before 'for'
   for i:=1 to Length(s) do begin
   ^~~
/in/foo.cc:10:3: error: 'end' does not name a type
   end;
   ^~~
/in/foo.cc:11:3: error: expected unqualified-id before 'for'
   for i:=1 to Length(s)-1 do begin
   ^~~
/in/foo.cc:13:5: error: 'a' does not name a type
     a:=a+t*i;
     ^
/in/foo.cc:14:3: error: 'end' does not name a type
   end;
   ^~~
/in/foo.cc:15:3: error: expected unqualified-id before 'if'
   if a mod 11=10 then c:='X' else str(a mod 11,c);
   ^~
/in/foo.cc:16:3: error: expected unqualified-id before 'if'
   if s[length(s)]=c then WriteLn('Right') else begin
   ^~
/in/foo.cc:18:12: error: expected constructor, destructor, or type conversion before '(' token
     WriteLn(b+c);
            ^
/in/foo.cc:19:3: error: 'end' does not name a type
   end;
   ^~~
/in/foo.cc:21:1: error: 'end' does not name a type
 end.
 ^~~