/in/foo.c:1:1: error: unknown type name 'type'
 type array1=array[1..100] of longint;
 ^~~~
/in/foo.c:1:13: error: 'array' undeclared here (not in a function)
 type array1=array[1..100] of longint;
             ^~~~~
/in/foo.c:1:19: error: too many decimal points in number
 type array1=array[1..100] of longint;
                   ^~~~~~
/in/foo.c:1:27: error: expected ',' or ';' before 'of'
 type array1=array[1..100] of longint;
                           ^~
/in/foo.c:3:1: warning: data definition has no type or storage class
 array2=array[1..170] of longint;
 ^~~~~~
/in/foo.c:3:1: warning: type defaults to 'int' in declaration of 'array2' [-Wimplicit-int]
/in/foo.c:3:14: error: too many decimal points in number
 array2=array[1..170] of longint;
              ^~~~~~
/in/foo.c:3:22: error: expected ',' or ';' before 'of'
 array2=array[1..170] of longint;
                      ^~
/in/foo.c:5:1: error: unknown type name 'var'
 var a,c,d,e,f:array1;
 ^~~
/in/foo.c:5:14: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 var a,c,d,e,f:array1;
              ^
/in/foo.c:7:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 b:array2;
  ^
/in/foo.c:9:1: warning: data definition has no type or storage class
 i,j,k,l,n,t:longint;
 ^
/in/foo.c:9:1: warning: type defaults to 'int' in declaration of 'i' [-Wimplicit-int]
/in/foo.c:9:3: warning: type defaults to 'int' in declaration of 'j' [-Wimplicit-int]
 i,j,k,l,n,t:longint;
   ^
/in/foo.c:9:5: warning: type defaults to 'int' in declaration of 'k' [-Wimplicit-int]
 i,j,k,l,n,t:longint;
     ^
/in/foo.c:9:7: warning: type defaults to 'int' in declaration of 'l' [-Wimplicit-int]
 i,j,k,l,n,t:longint;
       ^
/in/foo.c:9:9: warning: type defaults to 'int' in declaration of 'n' [-Wimplicit-int]
 i,j,k,l,n,t:longint;
         ^
/in/foo.c:9:12: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 i,j,k,l,n,t:longint;
            ^
/in/foo.c:11:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 s:string;
  ^
/in/foo.c:13:1: error: unknown type name 'procedure'
 procedure ga(var p,q:array1);
 ^~~~~~~~~
/in/foo.c:13:14: error: unknown type name 'var'
 procedure ga(var p,q:array1);
              ^~~
/in/foo.c:13:20: error: unknown type name 'q'
 procedure ga(var p,q:array1);
                    ^
/in/foo.c:15:1: error: unknown type name 'var'
 var i:longint;
 ^~~
/in/foo.c:15:6: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 var i:longint;
      ^
/in/foo.c:17:1: error: unknown type name 'begin'
 begin
 ^~~~~
/in/foo.c:19:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 k:=100;
  ^
/in/foo.c:21:1: error: expected identifier or '(' before 'while'
 while (q[k]=0) and (k>1) do dec(k);
 ^~~~~
/in/foo.c:23:1: error: expected identifier or '(' before 'for'
 for i:=1 to k do inc(p[i],q[i]);
 ^~~
/in/foo.c:25:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 k:=100;
  ^
/in/foo.c:27:1: error: expected identifier or '(' before 'while'
 while (p[k]=0) and (k>1) do dec(k);
 ^~~~~
/in/foo.c:29:1: error: expected identifier or '(' before 'for'
 for i:=1 to k do
 ^~~
/in/foo.c:37:5: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 p[i]:=p[i] mod 10;
     ^
/in/foo.c:39:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:39:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:41:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:41:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:43:1: error: unknown type name 'procedure'
 procedure gs(var p,q:array1);
 ^~~~~~~~~
/in/foo.c:43:14: error: unknown type name 'var'
 procedure gs(var p,q:array1);
              ^~~
/in/foo.c:43:20: error: unknown type name 'q'
 procedure gs(var p,q:array1);
                    ^
/in/foo.c:45:1: error: unknown type name 'begin'
 begin
 ^~~~~
/in/foo.c:47:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 k:=100;
  ^
/in/foo.c:49:1: error: expected identifier or '(' before 'while'
 while (q[k]=0) and (k>1) do dec(k);
 ^~~~~
/in/foo.c:51:1: error: expected identifier or '(' before 'for'
 for i:=1 to k do dec(p[i],q[i]);
 ^~~
/in/foo.c:53:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 k:=100;
  ^
/in/foo.c:55:1: error: expected identifier or '(' before 'while'
 while (p[k]=0) and (k>1) do dec(k);
 ^~~~~
/in/foo.c:57:1: error: expected identifier or '(' before 'for'
 for i:=1 to k do
 ^~~
/in/foo.c:61:3: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 l2:=100;
   ^
/in/foo.c:63:1: error: expected identifier or '(' before 'while'
 while (q[l2]=0) and (l2>1) do dec(l2);
 ^~~~~
/in/foo.c:65:1: error: expected identifier or '(' before 'for'
 for i:=1 to l1 do
 ^~~
/in/foo.c:71:1: error: expected identifier or '(' before 'for'
 for i:=1 to l1+l2 do
 ^~~
/in/foo.c:79:6: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 gc[i]:=gc[i] mod 10;
      ^
/in/foo.c:81:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:81:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:83:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:83:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:85:1: error: unknown type name 'function'
 function gk(p:array1;q,r:longint):array1;
 ^~~~~~~~
/in/foo.c:85:14: error: expected ')' before ':' token
 function gk(p:array1;q,r:longint):array1;
              ^
/in/foo.c:87:1: error: unknown type name 'var'
 var i,u,w:longint;
 ^~~
/in/foo.c:87:10: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 var i,u,w:longint;
          ^
/in/foo.c:89:1: error: unknown type name 'begin'
 begin
 ^~~~~
/in/foo.c:91:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 w:=q;
  ^
/in/foo.c:93:1: error: expected identifier or '(' before 'for'
 for i:=2 to 10 do w:=w*q;
 ^~~
/in/foo.c:95:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 u:=r div 10;
  ^
/in/foo.c:97:1: error: expected identifier or '(' before 'for'
 for j:=1 to u do
 ^~~
/in/foo.c:103:1: error: expected identifier or '(' before 'while'
 while (p[k]=0) and (k>1) do dec(k);
 ^~~~~
/in/foo.c:105:1: error: expected identifier or '(' before 'for'
 for i:=1 to k do p[i]:=p[i]*w;
 ^~~
/in/foo.c:107:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 k:=k+5;
  ^
/in/foo.c:109:1: error: expected identifier or '(' before 'for'
 for i:=1 to k do
 ^~~
/in/foo.c:117:5: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 p[i]:=p[i] mod 10;
     ^
/in/foo.c:119:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:119:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:121:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:121:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:123:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 u:=r mod 10;
  ^
/in/foo.c:125:1: error: expected identifier or '(' before 'for'
 for j:=1 to u do
 ^~~
/in/foo.c:131:1: error: expected identifier or '(' before 'while'
 while (p[k]=0) and (k>1) do dec(k);
 ^~~~~
/in/foo.c:133:1: error: expected identifier or '(' before 'for'
 for i:=1 to k do p[i]:=p[i]*q;
 ^~~
/in/foo.c:135:2: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 k:=k+1;
  ^
/in/foo.c:137:1: error: expected identifier or '(' before 'for'
 for i:=1 to k do
 ^~~
/in/foo.c:145:5: error: expected '=', ',', ';', 'asm' or '__attribute__' before ':' token
 p[i]:=p[i] mod 10;
     ^
/in/foo.c:147:1: warning: data definition has no type or storage class
 end;
 ^~~
/in/foo.c:147:1: warning: type defaults to 'int' in declaration of 'end' [-Wimplicit-int]
/in/foo.c:149:1: warnin