/in/foo.c:1:8: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 const c:array[1..12] of integer=(31,29,31,30,31,30,31,31,30,31,30,31);
        ^
/in/foo.c:1:15: error: too many decimal points in number
 const c:array[1..12] of integer=(31,29,31,30,31,30,31,31,30,31,30,31);
               ^~~~~
/in/foo.c:2:1: error: unknown type name 'var'
 var n,i,s,k:longint;
 ^~~
/in/foo.c:2:12: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 var n,i,s,k:longint;
            ^
/in/foo.c:3:5: warning: data definition has no type or storage class
     a,b:array[1..3] of integer;
     ^
/in/foo.c:3:5: warning: type defaults to 'int' in declaration of 'a' [-Wimplicit-int]
/in/foo.c:3:8: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
     a,b:array[1..3] of integer;
        ^
/in/foo.c:3:15: error: too many decimal points in number
     a,b:array[1..3] of integer;
               ^~~~
/in/foo.c:4:5: warning: data definition has no type or storage class
     s1,s2:string;
     ^~
/in/foo.c:4:5: warning: type defaults to 'int' in declaration of 's1' [-Wimplicit-int]
/in/foo.c:4:10: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
     s1,s2:string;
          ^
/in/foo.c:5:1: error: unknown type name 'procedure'
 procedure re;
 ^~~~~~~~~
/in/foo.c:6:1: error: unknown type name 'var'
 var i,sx:integer;
 ^~~
/in/foo.c:6:9: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 var i,sx:integer;
         ^
/in/foo.c:7:1: error: unknown type name 'begin'
 begin
 ^~~~~
/in/foo.c:8:7: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
     sx:=1000;
       ^
/in/foo.c:9:5: error: expected identifier or '(' before 'for'
     for i:=1 to 8 do
     ^~~
/in/foo.c:13:27: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
                         sx:=sx div 10;
                           ^
/in/foo.c:14:21: warning: data definition has no type or storage class
                     end;
                     ^~~
/in/foo.c:14:21: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:15:9: error: expected identifier or '(' before 'if'
         if (i<7)and(i>4) then begin
         ^~
/in/foo.c:17:37: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
                                   sx:=sx div 10
                                     ^
/in/foo.c:19:9: error: expected identifier or '(' before 'if'
         if (i<9)and(i>6) then begin
         ^~
/in/foo.c:21:37: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
                                   sx:=sx div 10;
                                     ^
/in/foo.c:22:31: warning: data definition has no type or storage class
                               end;
                               ^~~
/in/foo.c:22:31: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:23:9: error: expected identifier or '(' before 'if'
         if (i=4)or(i=6) then sx:=10;
         ^~
/in/foo.c:24:5: warning: data definition has no type or storage class
     end;
     ^~~
/in/foo.c:24:5: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:25:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:25:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:26:1: error: unknown type name 'procedure'
 procedure rea;
 ^~~~~~~~~
/in/foo.c:27:1: error: unknown type name 'var'
 var i,sx:integer;
 ^~~
/in/foo.c:27:9: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 var i,sx:integer;
         ^
/in/foo.c:28:1: error: unknown type name 'begin'
 begin
 ^~~~~
/in/foo.c:29:7: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
     sx:=1000;
       ^
/in/foo.c:30:5: error: expected identifier or '(' before 'for'
     for i:=1 to 8 do
     ^~~
/in/foo.c:34:27: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
                         sx:=sx div 10;
                           ^
/in/foo.c:35:21: warning: data definition has no type or storage class
                     end;
                     ^~~
/in/foo.c:35:21: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:36:9: error: expected identifier or '(' before 'if'
         if (i<7)and(i>4) then begin
         ^~
/in/foo.c:38:37: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
                                   sx:=sx div 10;
                                     ^
/in/foo.c:39:31: warning: data definition has no type or storage class
                               end;
                               ^~~
/in/foo.c:39:31: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:40:9: error: expected identifier or '(' before 'if'
         if (i<9)and(i>6) then begin
         ^~
/in/foo.c:42:37: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
                                   sx:=sx div 10;
                                     ^
/in/foo.c:43:31: warning: data definition has no type or storage class
                               end;
                               ^~~
/in/foo.c:43:31: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:44:9: error: expected identifier or '(' before 'if'
         if (i=4)or(i=6) then sx:=10;
         ^~
/in/foo.c:45:5: warning: data definition has no type or storage class
     end;
     ^~~
/in/foo.c:45:5: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:46:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:46:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:47:1: error: unknown type name 'procedure'
 procedure pp(x:integer);
 ^~~~~~~~~
/in/foo.c:47:15: error: expected ')' before ':' token
 procedure pp(x:integer);
               ^
/in/foo.c:49:5: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'if'
     if ((x mod 4=0)and(x mod 100<>0))or(x mod 400=0) then c[2]:=29
     ^~
/in/foo.c:51:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:51:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:52:1: error: unknown type name 'function'
 function check(y,z:string):boolean;
 ^~~~~~~~
/in/foo.c:52:19: error: expected ')' before ':' token
 function check(y,z:string):boolean;
                   ^
/in/foo.c:54:5: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'if'
     if (y[1]=z[4])and(y[2]=z[3])and(y[3]=z[2])and(y[4]=z[1]) then exit(true)
     ^~
/in/foo.c:56:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:56:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:57:1: error: unknown type name 'begin'
 begin
 ^~~~~
/in/foo.c:58:5: warning: parameter names (without types) in function declaration
     readln(s1);
     ^~~~~~
/in/foo.c:59:5: warning: data definition has no type or storage class
     readln(s2);
     ^~~~~~
/in/foo.c:59:5: warning: type defaults to 'int' in declaration of 'readln' [-Wimplicit-int]
/in/foo.c:59:5: warning: parameter names (without types) in function declaration
/in/foo.c:60:5: error: expected identifier or '(' before 'if'
     if s1=s2 then
     ^~
/in/foo.c:63:19: error: expected ')' before numeric constant
         delete(s1,5,4);
                   ^
/in/foo.c:64:9: error: expected identifier or '(' before 'if'
         if check(s1,s2) then writeln(1)
         ^~
/in/foo.c:66:9: warning: data definition has no type or storage class
         halt;
         ^~~~
/in/foo.c:66:9: warning: type defaults to 'int' in declaration of 'halt' [-Wimplicit-int]
/in/foo.c:67:5: warning: data definition has no type or storage class
     end;
     ^~~
/in/foo.c:67:5: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:68:16: error: expected ')' before 'sizeof'
     fillchar(a,sizeof(a),0);re;
                ^~~~~~
/in/foo.c:68:29: warning: data definition has