/in/foo.cc:7:9: error: too many decimal points in number
 w:array[0..4] of real;
         ^~~~
/in/foo.cc:1:1: error: 'program' does not name a type
 program s1140;
 ^~~~~~~
/in/foo.cc:3:1: error: 'var' does not name a type
 var i,j,l,k,m,n:longint;
 ^~~
/in/foo.cc:5:4: error: found ':' in nested-name-specifier, expected '::'
 wei:qword;
    ^
/in/foo.cc:5:1: error: 'wei' does not name a type
 wei:qword;
 ^~~
/in/foo.cc:7:2: error: found ':' in nested-name-specifier, expected '::'
 w:array[0..4] of real;
  ^
/in/foo.cc:7:1: error: 'w' does not name a type
 w:array[0..4] of real;
 ^
/in/foo.cc:9:1: error: 'flag' does not name a type
 flag,mss:boolean;
 ^~~~
/in/foo.cc:11:1: error: 'function' does not name a type
 function check(x:real):boolean;
 ^~~~~~~~
/in/foo.cc:13:1: error: 'var' does not name a type
 var a,b:longint;
 ^~~
/in/foo.cc:15:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:17:6: error: 'a' does not name a type
 b:=0;a:=0;
      ^
/in/foo.cc:19:1: error: expected unqualified-id before 'if'
 if abs(x-round(x))>0.001 then exit(false);
 ^~
/in/foo.cc:21:1: error: expected unqualified-id before 'if'
 if x=10*wei then exit(false);
 ^~
/in/foo.cc:23:1: error: 'b' does not name a type
 b:=round(x) mod 100;
 ^
/in/foo.cc:25:1: error: expected unqualified-id before 'if'
 if bm then exit(false);
 ^~
/in/foo.cc:27:5: error: expected constructor, destructor, or type conversion before '(' token
 exit(true);
     ^
/in/foo.cc:29:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:31:1: error: 'function' does not name a type
 function ww(o:integer;x,y:real):real;
 ^~~~~~~~
/in/foo.cc:31:23: error: 'x' does not name a type
 function ww(o:integer;x,y:real):real;
                       ^
/in/foo.cc:33:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:35:47: error: expected constructor, destructor, or type conversion before '(' token
 if (o=4) and (y=0) then begin flag:=true; exit(0); end;
                                               ^
/in/foo.cc:35:52: error: 'end' does not name a type
 if (o=4) and (y=0) then begin flag:=true; exit(0); end;
                                                    ^~~
/in/foo.cc:37:1: error: expected unqualified-id before 'if'
 if (o=6) and (x=0) then begin flag:=true; exit(0); end;
 ^~
/in/foo.cc:37:47: error: expected constructor, destructor, or type conversion before '(' token
 if (o=6) and (x=0) then begin flag:=true; exit(0); end;
                                               ^
/in/foo.cc:37:52: error: 'end' does not name a type
 if (o=6) and (x=0) then begin flag:=true; exit(0); end;
                                                    ^~~
/in/foo.cc:39:1: error: expected unqualified-id before 'case'
 case o of
 ^~~~
/in/foo.cc:43:1: error: expected unqualified-id before numeric constant
 2: exit(x-y);
 ^
/in/foo.cc:45:1: error: expected unqualified-id before numeric constant
 3: exit(x*y);
 ^
/in/foo.cc:47:1: error: expected unqualified-id before numeric constant
 4: exit(x/y);
 ^
/in/foo.cc:49:1: error: expected unqualified-id before numeric constant
 5: exit(y-x);
 ^
/in/foo.cc:51:1: error: expected unqualified-id before numeric constant
 6: exit(y/x);
 ^
/in/foo.cc:53:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:55:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:57:1: error: 'procedure' does not name a type
 procedure search(x,y,z,v:longint);
 ^~~~~~~~~
/in/foo.cc:59:1: error: 'var' does not name a type
 var i,j,l,k:longint;
 ^~~
/in/foo.cc:61:1: error: 'a' does not name a type
 a,b,c,d,ans:real;
 ^
/in/foo.cc:63:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:67:1: error: 'a' does not name a type
 a:=w[x]; b:=w[y]; c:=w[z]; d:=w[v];
 ^
/in/foo.cc:67:10: error: 'b' does not name a type
 a:=w[x]; b:=w[y]; c:=w[z]; d:=w[v];
          ^
/in/foo.cc:67:19: error: 'c' does not name a type
 a:=w[x]; b:=w[y]; c:=w[z]; d:=w[v];
                   ^
/in/foo.cc:67:28: error: 'd' does not name a type
 a:=w[x]; b:=w[y]; c:=w[z]; d:=w[v];
                            ^
/in/foo.cc:69:1: error: expected unqualified-id before 'for'
 for i:=1 to 6 do
 ^~~
/in/foo.cc:79:1: error: expected unqualified-id before 'if'
 if check(ans) then begin writeln(1); mss:=true; exit; end;
 ^~
/in/foo.cc:79:38: error: 'mss' does not name a type
 if check(ans) then begin writeln(1); mss:=true; exit; end;
                                      ^~~
/in/foo.cc:79:49: error: 'exit' does not name a type
 if check(ans) then begin writeln(1); mss:=true; exit; end;
                                                 ^~~~
/in/foo.cc:79:55: error: 'end' does not name a type
 if check(ans) then begin writeln(1); mss:=true; exit; end;
                                                       ^~~
/in/foo.cc:81:1: error: 'ans' does not name a type
 ans:=ww(k,ww(i,a,b),ww(j,c,d));
 ^~~
/in/foo.cc:83:1: error: expected unqualified-id before 'if'
 if check(ans) then begin writeln(1); mss:=true; exit; end;
 ^~
/in/foo.cc:83:38: error: 'mss' does not name a type
 if check(ans) then begin writeln(1); mss:=true; exit; end;
                                      ^~~
/in/foo.cc:83:49: error: 'exit' does not name a type
 if check(ans) then begin writeln(1); mss:=true; exit; end;
                                                 ^~~~
/in/foo.cc:83:55: error: 'end' does not name a type
 if check(ans) then begin writeln(1); mss:=true; exit; end;
                                                       ^~~
/in/foo.cc:85:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:87:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:89:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:95:1: error: 'w' does not name a type
 w[0]:=w[4];
 ^
/in/foo.cc:97:1: error: 'repeat' does not name a type
 repeat
 ^~~~~~
/in/foo.cc:101:1: error: expected unqualified-id before 'if'
 if n=1 then halt;
 ^~
/in/foo.cc:103:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(m);
       ^
/in/foo.cc:105:1: error: 'wei' does not name a type
 wei:=1;
 ^~~
/in/foo.cc:107:1: error: expected unqualified-id before 'for'
 for i:=1 to n-1 do wei:=wei*10;
 ^~~
/in/foo.cc:109:1: error: 'mss' does not name a type
 mss:=false;
 ^~~
/in/foo.cc:111:1: error: expected unqualified-id before 'for'
 for i:=1 to 4 do
 ^~~
/in/foo.cc:117:1: error: expected unqualified-id before 'for'
 for j:=i+1 to i+3 do
 ^~~
/in/foo.cc:123:1: error: expected unqualified-id before 'for'
 for k:=j+1 to j+3 do
 ^~~
/in/foo.cc:129:1: error: expected unqualified-id before 'if'
 if (k mod 4)(i mod 4) then
 ^~
/in/foo.cc:139:7: error: expected constructor, destructor, or type conversion before '(' token
 search((i mod 4),(j mod 4),(k mod 4),(l mod 4));
       ^
/in/foo.cc:141:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:143:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:145:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:147:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:148:1: error: expected unqualified-id before 'if'
 if (not mss) and (n>1) then writeln(0);
 ^~
/in/foo.cc:150:1: error: 'until' does not name a type
 until n=1;
 ^~~~~
/in/foo.cc:152:1: error: 'end' does not name a type
 end.
 ^~~