/in/foo.cc:4:13: error: too many decimal points in number
  dist:array[0..1000,0..1000] of longint;
             ^~~~~~~
/in/foo.cc:4:21: error: too many decimal points in number
  dist:array[0..1000,0..1000] of longint;
                     ^~~~~~~
/in/foo.cc:5:12: error: too many decimal points in number
  a,b:array[0..1000] of longint;
            ^~~~~~~
/in/foo.cc:6:12: error: too many decimal points in number
  cho:array[0..1000] of boolean;
            ^~~~~~~
/in/foo.cc:7:10: error: too many decimal points in number
  k:array[0..1000] of real;
          ^~~~~~~
/in/foo.cc:1:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:3:2: error: 'ans' does not name a type
  ans,minn:real;
  ^~~
/in/foo.cc:4:6: error: found ':' in nested-name-specifier, expected '::'
  dist:array[0..1000,0..1000] of longint;
      ^
/in/foo.cc:4:2: error: 'dist' does not name a type
  dist:array[0..1000,0..1000] of longint;
  ^~~~
/in/foo.cc:5:2: error: 'a' does not name a type
  a,b:array[0..1000] of longint;
  ^
/in/foo.cc:6:5: error: found ':' in nested-name-specifier, expected '::'
  cho:array[0..1000] of boolean;
     ^
/in/foo.cc:6:2: error: 'cho' does not name a type
  cho:array[0..1000] of boolean;
  ^~~
/in/foo.cc:7:3: error: found ':' in nested-name-specifier, expected '::'
  k:array[0..1000] of real;
   ^
/in/foo.cc:7:2: error: 'k' does not name a type
  k:array[0..1000] of real;
  ^
/in/foo.cc:8:1: error: 'function' does not name a type
 function min(x,y:longint):longint;
 ^~~~~~~~
/in/foo.cc:9:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:12:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:13:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:15:8: error: expected constructor, destructor, or type conversion before '(' token
  readln(n,m,v,e);
        ^
/in/foo.cc:16:2: error: expected unqualified-id before 'for'
  for i:=1 to n do dist[i,i]:=0;
  ^~~
/in/foo.cc:17:2: error: expected unqualified-id before 'for'
  for i:=1 to n do read(a[i]); readln;
  ^~~
/in/foo.cc:17:31: error: 'readln' does not name a type
  for i:=1 to n do read(a[i]); readln;
                               ^~~~~~
/in/foo.cc:18:2: error: expected unqualified-id before 'for'
  for i:=1 to n do read(b[i]); readln;
  ^~~
/in/foo.cc:18:31: error: 'readln' does not name a type
  for i:=1 to n do read(b[i]); readln;
                               ^~~~~~
/in/foo.cc:19:2: error: expected unqualified-id before 'for'
  for i:=1 to n do read(k[i]); readln;
  ^~~
/in/foo.cc:19:31: error: 'readln' does not name a type
  for i:=1 to n do read(k[i]); readln;
                               ^~~~~~
/in/foo.cc:20:2: error: expected unqualified-id before 'for'
  for i:=1 to e do
  ^~~
/in/foo.cc:23:3: error: 'dist' does not name a type
   dist[x,y]:=min(dist[x,y],w);
   ^~~~
/in/foo.cc:24:3: error: 'dist' does not name a type
   dist[y,x]:=min(dist[y,x],w);
   ^~~~
/in/foo.cc:25:2: error: 'end' does not name a type
  end;
  ^~~
/in/foo.cc:26:2: error: expected unqualified-id before 'for'
  for l:=1 to v do
  ^~~
/in/foo.cc:30:2: error: 'tot' does not name a type
  tot:=1;
  ^~~
/in/foo.cc:31:2: error: expected unqualified-id before 'for'
  for i:=1 to n do tot:=tot*2;
  ^~~
/in/foo.cc:32:5: error: expected constructor, destructor, or type conversion before '(' token
  dec(tot);
     ^
/in/foo.cc:33:2: error: 'minn' does not name a type
  minn:=maxlongint;
  ^~~~
/in/foo.cc:34:2: error: expected unqualified-id before 'for'
  for x:=0 to tot do
  ^~~
/in/foo.cc:37:3: error: 'num' does not name a type
   num:=0;
   ^~~
/in/foo.cc:38:3: error: expected unqualified-id before 'for'
   for i:=1 to n do
   ^~~
/in/foo.cc:42:8: error: expected constructor, destructor, or type conversion before '(' token
     inc(num);
        ^
/in/foo.cc:43:4: error: 'end' does not name a type
    end;
    ^~~
/in/foo.cc:44:3: error: expected unqualified-id before 'if'
   if num<=m then
   ^~
/in/foo.cc:47:4: error: expected unqualified-id before 'for'
    for i:=2 to n do
    ^~~
/in/foo.cc:50:5: error: expected unqualified-id before 'if'
     if (not cho[i]) and (not cho[i-1]) then ans:=ans+dist[a[i],a[i-1]];
     ^~
/in/foo.cc:51:5: error: expected unqualified-id before 'if'
     if cho[i-1] and (not cho[i]) then ans:=ans+k[i-1]*dist[b[i-1],a[i]]+(1-k[i-1])*dist[a[i],a[i-1]];
     ^~
/in/foo.cc:52:5: error: expected unqualified-id before 'if'
     if cho[i] and cho[i-1] then ans:=ans+k[i-1]*k[i]*dist[b[i],b[i-1]]+(1-k[i])*(1-k[i-1])*dist[a[i],a[i-1]]+(1-k[i])*k[i-1]*dist[a[i],b[i-1]]+(1-k[i-1])*k[i]*dist[b[i],a[i-1]];
     ^~
/in/foo.cc:53:4: error: 'end' does not name a type
    end;
    ^~~
/in/foo.cc:54:4: error: expected unqualified-id before 'if'
    if ans<minn then minn:=ans;
    ^~
/in/foo.cc:55:3: error: 'end' does not name a type
   end;
   ^~~
/in/foo.cc:56:2: error: 'end' does not name a type
  end;
  ^~~
/in/foo.cc:57:9: error: expected constructor, destructor, or type conversion before '(' token
  writeln(minn:0:2);
         ^
/in/foo.cc:58:1: error: 'end' does not name a type
 end.
 ^~~