foo.cc:8:11: error: too many decimal points in number
    8 | s,x:array[0..maxn] of extended;
      |           ^~~~~~~
foo.cc:9:15: error: too many decimal points in number
    9 | y,pre,b:array[0..maxn] of longint;
      |               ^~~~~~~
foo.cc:10:9: error: too many decimal points in number
   10 | f:array[0..maxn] of boolean;
      |         ^~~~~~~
foo.cc:11:9: error: too many decimal points in number
   11 | e:array[0..maxm] of ss;
      |         ^~~~~~~
foo.cc:12:9: error: too many decimal points in number
   12 | q:array[0..qu] of longint;
      |         ^~~~~
foo.cc:94:7: warning: multi-character character constant [-Wmultichar]
   94 | write('0.'); ans:=ans*10;
      |       ^~~~
foo.cc:1:1: error: 'type' does not name a type; did you mean 'typedef'?
    1 | type ss=record
      | ^~~~
      | typedef
foo.cc:3:2: error: found ':' in nested-name-specifier, expected '::'
    3 | f:extended;
      |  ^
      |  ::
foo.cc:3:1: error: 'f' does not name a type
    3 | f:extended;
      | ^
foo.cc:4:1: error: 'end' does not name a type
    4 | end;
      | ^~~
foo.cc:5:7: error: 'maxn' does not name a type
    5 | const maxn=401; maxm=46001; qu=10000; oo=maxlongint shr 2;
      |       ^~~~
foo.cc:5:17: error: 'maxm' does not name a type
    5 | const maxn=401; maxm=46001; qu=10000; oo=maxlongint shr 2;
      |                 ^~~~
foo.cc:5:29: error: 'qu' does not name a type
    5 | const maxn=401; maxm=46001; qu=10000; oo=maxlongint shr 2;
      |                             ^~
foo.cc:5:39: error: 'oo' does not name a type; did you mean 'bool'?
    5 | const maxn=401; maxm=46001; qu=10000; oo=maxlongint shr 2;
      |                                       ^~
      |                                       bool
foo.cc:6:1: error: 'var' does not name a type
    6 | var i,j,n,cnt,st,ed,w,tot,t1,t2,t4,k,t,h,flow,augo,hh,tt:longint;
      | ^~~
foo.cc:7:3: error: found ':' in nested-name-specifier, expected '::'
    7 | pr:string;
      |   ^
      |   ::
foo.cc:7:1: error: 'pr' does not name a type
    7 | pr:string;
      | ^~
foo.cc:8:1: error: 's' does not name a type
    8 | s,x:array[0..maxn] of extended;
      | ^
foo.cc:9:1: error: 'y' does not name a type
    9 | y,pre,b:array[0..maxn] of longint;
      | ^
foo.cc:10:2: error: found ':' in nested-name-specifier, expected '::'
   10 | f:array[0..maxn] of boolean;
      |  ^
      |  ::
foo.cc:10:1: error: 'f' does not name a type
   10 | f:array[0..maxn] of boolean;
      | ^
foo.cc:11:2: error: found ':' in nested-name-specifier, expected '::'
   11 | e:array[0..maxm] of ss;
      |  ^
      |  ::
foo.cc:11:1: error: 'e' does not name a type
   11 | e:array[0..maxm] of ss;
      | ^
foo.cc:12:2: error: found ':' in nested-name-specifier, expected '::'
   12 | q:array[0..qu] of longint;
      |  ^
      |  ::
foo.cc:12:1: error: 'q' does not name a type
   12 | q:array[0..qu] of longint;
      | ^
foo.cc:13:1: error: 'ans' does not name a type
   13 | ans,t3,cost:extended;
      | ^~~
foo.cc:14:1: error: 'procedure' does not name a type
   14 | procedure jia(x,y,c:longint;f:extended);
      | ^~~~~~~~~
foo.cc:14:30: error: found ':' in nested-name-specifier, expected '::'
   14 | procedure jia(x,y,c:longint;f:extended);
      |                              ^
      |                              ::
foo.cc:14:29: error: 'f' does not name a type
   14 | procedure jia(x,y,c:longint;f:extended);
      |                             ^
foo.cc:15:1: error: 'begin' does not name a type
   15 | begin
      | ^~~~~
foo.cc:16:11: error: 'e' does not name a type
   16 | inc(tot); e[tot].x:=x; e[tot].y:=y; e[tot].c:=c; e[tot].f:=f;
      |           ^
foo.cc:16:24: error: 'e' does not name a type
   16 | inc(tot); e[tot].x:=x; e[tot].y:=y; e[tot].c:=c; e[tot].f:=f;
      |                        ^
foo.cc:16:37: error: 'e' does not name a type
   16 | inc(tot); e[tot].x:=x; e[tot].y:=y; e[tot].c:=c; e[tot].f:=f;
      |                                     ^
foo.cc:16:50: error: 'e' does not name a type
   16 | inc(tot); e[tot].x:=x; e[tot].y:=y; e[tot].c:=c; e[tot].f:=f;
      |                                                  ^
foo.cc:17:1: error: 'e' does not name a type
   17 | e[tot].next:=b[x]; b[x]:=tot;
      | ^
foo.cc:17:20: error: 'b' does not name a type
   17 | e[tot].next:=b[x]; b[x]:=tot;
      |                    ^
foo.cc:18:4: error: expected constructor, destructor, or type conversion before '(' token
   18 | inc(tot); e[tot].x:=y; e[tot].y:=x; e[tot].f:=-f;
      |    ^
foo.cc:18:11: error: 'e' does not name a type
   18 | inc(tot); e[tot].x:=y; e[tot].y:=x; e[tot].f:=-f;
      |           ^
foo.cc:18:24: error: 'e' does not name a type
   18 | inc(tot); e[tot].x:=y; e[tot].y:=x; e[tot].f:=-f;
      |                        ^
foo.cc:18:37: error: 'e' does not name a type
   18 | inc(tot); e[tot].x:=y; e[tot].y:=x; e[tot].f:=-f;
      |                                     ^
foo.cc:19:1: error: 'e' does not name a type
   19 | e[tot].next:=b[y]; b[y]:=tot;
      | ^
foo.cc:19:20: error: 'b' does not name a type
   19 | e[tot].next:=b[y]; b[y]:=tot;
      |                    ^
foo.cc:20:1: error: 'e' does not name a type
   20 | e[tot].r:=tot-1; e[tot-1].r:=tot;
      | ^
foo.cc:20:18: error: 'e' does not name a type
   20 | e[tot].r:=tot-1; e[tot-1].r:=tot;
      |                  ^
foo.cc:21:1: error: 'end' does not name a type
   21 | end;
      | ^~~
foo.cc:22:1: error: 'begin' does not name a type
   22 | begin
      | ^~~~~
foo.cc:24:1: error: expected unqualified-id before 'for'
   24 | for i:=1 to n do read(x[i]);
      | ^~~
foo.cc:25:1: error: expected unqualified-id before 'for'
   25 | for i:=1 to n do read(y[i]);
      | ^~~
foo.cc:26:1: error: 'st' does not name a type
   26 | st:=n+1; ed:=n+2; cnt:=n+3; fillchar(b,sizeof(b),255);
      | ^~
foo.cc:26:10: error: 'ed' does not name a type
   26 | st:=n+1; ed:=n+2; cnt:=n+3; fillchar(b,sizeof(b),255);
      |          ^~
foo.cc:26:19: error: 'cnt' does not name a type; did you mean 'int'?
   26 | st:=n+1; ed:=n+2; cnt:=n+3; fillchar(b,sizeof(b),255);
      |                   ^~~
      |                   int
foo.cc:26:37: error: expected constructor, destructor, or type conversion before '(' token
   26 | st:=n+1; ed:=n+2; cnt:=n+3; fillchar(b,sizeof(b),255);
      |                                     ^
foo.cc:27:4: error: expected constructor, destructor, or type conversion before '(' token
   27 | jia(st,cnt,k,0);
      |    ^
foo.cc:28:1: error: expected unqualified-id before 'for'
   28 | for i:=1 to n do
      | ^~~
foo.cc:30:1: error: expected unqualified-id before 'for'
   30 | for i:=1 to n do
      | ^~~
foo.cc:33:1: error: expected unqualified-id before 'if'
   33 | if t=1 then jia(i,ed,oo,0);
      | ^~
foo.cc:34:1: error: 'end' does not name a type
   34 | end;
      | ^~~
foo.cc:35:1: error: expected unqualified-id before 'while'
   35 | while true do
      | ^~~~~
foo.cc:38:1: error: expected unqualified-id before 'if'
   38 | if t1=-1 then break;
      | ^~
foo.cc:39:7: error: expected constructor, destructor, or type conversion before '(' token
   39 | readln(t3,t4);
      |       ^
foo.cc:40:4: error: expected constructor, destructor, or type conversion before '(' token
   40 | jia(t1,t2,t4,-ln(t3));
      |    ^
foo.cc:41:4: error: expected constructor, destructor, or type conversion before '(' token
   41 | jia(t2,t1,t4,-ln(t3));
      |    ^
foo.cc:42:1: error: 'end' does not name a type
   42 | end;
      | ^~~
foo.cc:43:1: error: 'ans' does not name a type
   43 | ans:=1;
      | ^~~
foo.cc:44:1: error: expected unqualified-id before 'while'
   44 | while true do
      | ^~~~~
foo.cc:47:1: error: 'h' does not name a type
   47 | h:=1; t:=1; q[1]:=st; s[st]:=0; hh:=1; tt:=1;
      | ^
foo.cc:47:7: error: 't' does not name a type
   47 | h:=1; t:=1; q[1]:=st; s[st]:=0; hh:=1; tt:=1;
      |       ^
foo.cc:47:13: error: 'q' does not name a type
   47 | h:=1; t:=1; q[1]:=st; s[st]:=0; hh:=1; tt:=1;
      |             ^
foo.cc:47:23: error: 's' does not name a type
   47 | h:=1; t:=1; q[1]:=st; s[st]:=0; hh:=1; tt:=1;
      |                       ^
foo.cc:47:33: error: 'hh' does not name a type
   47 | h:=1; t:=1; q[1]:=st; s[st]:=0; hh:=1; tt:=1;
      |                                 ^~
foo.cc:47:40: error: 'tt' does not name a type
   47 | h:=1; t:=1; q[1]:=st; s[st]:=0; hh:=1; tt:=1;
      |                                        ^~
foo.cc:48:1: error: 'repeat' does not name a type
   48 | repeat
      | ^~~~~~
foo.cc:49:10: error: 'f' does not name a type
   49 | w:=q[h]; f[w]:=false; i:=b[w];
      |          ^
foo.cc:49:23: error: 'i' does not name a type
   49 | w:=q[h]; f[w]:=false; i:=b[w];
      |                       ^
foo.cc:50:4: error: expected constructor, destructor, or type conversion before '(' token
   50 | inc(h); inc(hh); h:=h mod qu;
      |    ^
foo.cc:50:12: error: expected constructor, destructor, or type conversion before '(' token
   50 | inc(h); inc(hh); h:=h mod qu;
      |            ^
foo.cc:50:18: error: 'h' does not name a type
   50 | inc(h); inc(hh); h:=h mod qu;
      |                  ^
foo.cc:51:1: error: expected unqualified-id before 'while'
   51 | while i<>-1 do
      | ^~~~~
foo.cc:56:1: error: 'pre' does not name a type
   56 | pre[e[i].y]:=i;
      | ^~~
foo.cc:57:1: error: expected unqualified-id before 'if'
   57 | if not(f[e[i].y]) then
      | ^~
foo.cc:60:12: error: expected constructor, destructor, or type conversion before '(' token
   60 | dec(h); dec(hh);
      |            ^
foo.cc:61:1: error: expected unqualified-id before 'if'
   61 | if h<0 then h:=qu-1;
      | ^~
foo.cc:62:1: error: 'q' does not name a type
   62 | q[h]:=e[i].y;
      | ^
foo.cc:63:1: error: 'end' does not name a type
   63 | end
      | ^~~
foo.cc:66:12: error: expected constructor, destructor, or type conversion before '(' token
   66 | inc(t); inc(tt);
      |            ^
foo.cc:67:1: error: 't' does not name a type
   67 | t:=t mod qu;
      | ^
foo.cc:68:1: error: 'q' does not name a type
   68 | q[t]:=e[i].y;
      | ^
foo.cc:69:1: error: 'end' does not name a type
   69 | end;
      | ^~~
foo.cc:70:1: error: 'f' does not name a type
   70 | f[e[i].y]:=true;
      | ^
foo.cc:71:1: error: 'end' does not name a type
   71 | end;
      | ^~~
foo.cc:72:1: error: 'i' does not name a type
   72 | i:=e[i].next;
      | ^
foo.cc:73:1: error: 'end' does not name a type
   73 | end;
      | ^~~
foo.cc:74:1: error: 'until' does not name a type
   74 | until hh>tt;
      | ^~~~~
foo.cc:75:1: error: expected unqualified-id before 'if'
   75 | if s[ed]=oo then break;
      | ^~
foo.cc:76:1: error: 'flow' does not name a type
   76 | flow:=maxlongint;
      | ^~~~
foo.cc:77:1: error: 'i' does not name a type
   77 | i:=pre[ed];
      | ^
foo.cc:78:1: error: expected unqualified-id before 'while'
   78 | while i<>0 do
      | ^~~~~
foo.cc:81:1: error: 'i' does not name a type
   81 | i:=pre[e[i].x];
      | ^
foo.cc:82:1: error: 'end' does not name a type
   82 | end;
      | ^~~
foo.cc:83:1: error: 'i' does not name a type
   83 | i:=pre[ed]; cost:=0;
      | ^
foo.cc:83:13: error: 'cost' does not name a type; did you mean 'const'?
   83 | i:=pre[ed]; cost:=0;
      |             ^~~~
      |             const
foo.cc:84:1: error: expected unqualified-id before 'while'
   84 | while i<>0 do
      | ^~~~~
foo.cc:86:23: error: expected constructor, destructor, or type conversion before '(' token
   86 | cost:=e[i].f+cost; dec(e[i].c,flow);
      |                       ^
foo.cc:87:4: error: expected constructor, destructor, or type conversion before '(' token
   87 | inc(e[e[i].r].c,flow); i:=pre[e[i].x];
      |    ^
foo.cc:87:24: error: 'i' does not name a type
   87 | inc(e[e[i].r].c,flow); i:=pre[e[i].x];
      |                        ^
foo.cc:88:1: error: 'end' does not name a type
   88 | end;
      | ^~~
foo.cc:89:1: error: expected unqualified-id before 'for'
   89 | for i:=1 to flow do ans:=ans*exp(-cost);
      | ^~~
foo.cc:90:4: error: expected constructor, destructor, or type conversion before '(' token
   90 | inc(augo,flow);
      |    ^
foo.cc:91:1: error: 'end' does not name a type
   91 | end;
      | ^~~
foo.cc:92:1: error: expected unqualified-id before 'if'
   92 | if augo<k then writeln(0) else
      | ^~
foo.cc:94:14: error: 'ans' does not name a type
   94 | write('0.'); ans:=ans*10;
      |              ^~~
foo.cc:95:1: error: expected unqualified-id before 'while'
   95 | while ans<1 do
      | ^~~~~
foo.cc:98:6: error: expected constructor, destructor, or type conversion before '(' token
   98 | write(0);
      |      ^
foo.cc:99:1: error: 'end' does not name a type
   99 | end;
      | ^~~
foo.cc:100:1: error: expected unqualified-id before 'for'
  100 | for i:=1 to 10 do ans:=ans*10;
      | ^~~
foo.cc:101:1: error: expected unqualified-id before 'for'
  101 | for i:=1 to 6 do ans:=round(ans/10);
      | ^~~
foo.cc:102:8: error: expected constructor, destructor, or type conversion before '(' token
  102 | writeln(trunc(ans));
      |        ^
foo.cc:103:1: error: 'end' does not name a type
  103 | end;
      | ^~~
foo.cc:104:1: error: 'end' does not name a type
  104 | end.
      | ^~~

[Hydro](https://hydro.ac)提供评测服务