/in/foo.cc:1:13: error: too many decimal points in number
 var x:array[0..200]of real;
             ^~~~~~
/in/foo.cc:2:9: error: too many decimal points in number
 a:array[0..200,0..201]of real;
         ^~~~~~
/in/foo.cc:2:16: error: too many decimal points in number
 a:array[0..200,0..201]of real;
                ^~~~~~
/in/foo.cc:1:1: error: 'var' does not name a type
 var x:array[0..200]of real;
 ^~~
/in/foo.cc:2:2: error: found ':' in nested-name-specifier, expected '::'
 a:array[0..200,0..201]of real;
  ^
/in/foo.cc:2:1: error: 'a' does not name a type
 a:array[0..200,0..201]of real;
 ^
/in/foo.cc:3:2: error: found ':' in nested-name-specifier, expected '::'
 n:longint;
  ^
/in/foo.cc:3:1: error: 'n' does not name a type
 n:longint;
 ^
/in/foo.cc:4:1: error: 'procedure' does not name a type
 procedure initial;
 ^~~~~~~~~
/in/foo.cc:5:1: error: 'var' does not name a type
 var i,j:longint;
 ^~~
/in/foo.cc:6:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:8:1: error: expected unqualified-id before 'for'
 for i:=1 to n do begin
 ^~~
/in/foo.cc:9:33: error: 'readln' does not name a type
 for j:=1 to n+1 do read(a[i,j]);readln;end;
                                 ^~~~~~
/in/foo.cc:9:40: error: 'end' does not name a type
 for j:=1 to n+1 do read(a[i,j]);readln;end;
                                        ^~~
/in/foo.cc:10:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:11:1: error: 'procedure' does not name a type
 procedure gause;
 ^~~~~~~~~
/in/foo.cc:12:1: error: 'var' does not name a type
 var maxi,ii,i,j:longint;
 ^~~
/in/foo.cc:13:1: error: 'max' does not name a type
 max,t:real;
 ^~~
/in/foo.cc:14:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:17:20: error: 'maxi' does not name a type
 max:=abs(a[ii,ii]);maxi:=ii;
                    ^~~~
/in/foo.cc:18:1: error: expected unqualified-id before 'for'
 for i:=ii+1 to n do if abs(a[i,ii])>max then begin maxi:=i;max:=abs(a[i,ii]);end;
 ^~~
/in/foo.cc:18:60: error: 'max' does not name a type
 for i:=ii+1 to n do if abs(a[i,ii])>max then begin maxi:=i;max:=abs(a[i,ii]);end;
                                                            ^~~
/in/foo.cc:18:78: error: 'end' does not name a type
 for i:=ii+1 to n do if abs(a[i,ii])>max then begin maxi:=i;max:=abs(a[i,ii]);end;
                                                                              ^~~
/in/foo.cc:19:1: error: expected unqualified-id before 'for'
 for i:=1 to n+1 do
 ^~~
/in/foo.cc:20:18: error: 'a' does not name a type
 begin t:=a[ii,i];a[ii,i]:=a[maxi,i];a[maxi,i]:=t;end;
                  ^
/in/foo.cc:20:37: error: 'a' does not name a type
 begin t:=a[ii,i];a[ii,i]:=a[maxi,i];a[maxi,i]:=t;end;
                                     ^
/in/foo.cc:20:50: error: 'end' does not name a type
 begin t:=a[ii,i];a[ii,i]:=a[maxi,i];a[maxi,i]:=t;end;
                                                  ^~~
/in/foo.cc:21:1: error: expected unqualified-id before 'for'
 for i:=ii+1 to n do
 ^~~
/in/foo.cc:24:1: error: expected unqualified-id before 'for'
 for j:=ii+1 to n+1 do
 ^~~
/in/foo.cc:26:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:27:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:28:1: error: 'x' does not name a type
 x[n]:=a[n,n+1]/a[n,n];
 ^
/in/foo.cc:29:1: error: expected unqualified-id before 'for'
 for i:=n-1 downto 1 do
 ^~~
/in/foo.cc:32:1: error: 'x' does not name a type
 x[i]:=a[i,n+1]/a[i,i];
 ^
/in/foo.cc:33:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:34:1: error: expected unqualified-id before 'for'
 for i:=1 to n-1 do write(round(x[i]),' ');
 ^~~
/in/foo.cc:35:8: error: expected constructor, destructor, or type conversion before '(' token
 writeln(round(x[n]));
        ^
/in/foo.cc:36:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:37:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:39:1: error: 'gause' does not name a type
 gause;
 ^~~~~
/in/foo.cc:40:1: error: 'end' does not name a type
 end.
 ^~~