/in/foo.cc:5:20: error: too many decimal points in number
     x,y,road:array[1..1100] of longint;
                    ^~~~~~~
/in/foo.cc:1:1: error: 'program' does not name a type
 program vijos1336pid43(freewing);//no.2
 ^~~~~~~
/in/foo.cc:2:1: error: 'var' does not name a type
 var 
 ^~~
/in/foo.cc:4:5: error: 'tot' does not name a type
     tot,n,m,h,i,j,k:longint;
     ^~~
/in/foo.cc:5:5: error: 'x' does not name a type
     x,y,road:array[1..1100] of longint;
     ^
/in/foo.cc:7:1: error: 'procedure' does not name a type
 procedure Q2sort(l,r:longint);
 ^~~~~~~~~
/in/foo.cc:8:1: error: 'var' does not name a type
 var i1,j1,mid1,mid2,temp1,temp2:longint;
 ^~~
/in/foo.cc:9:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:11:3: error: 'j1' does not name a type
   j1:=r;
   ^~
/in/foo.cc:12:3: error: 'mid1' does not name a type
   mid1:=x[(l+r) div 2];
   ^~~~
/in/foo.cc:13:3: error: 'mid2' does not name a type
   mid2:=y[(l+r) div 2];
   ^~~~
/in/foo.cc:14:3: error: 'repeat' does not name a type
   repeat
   ^~~~~~
/in/foo.cc:16:3: error: expected unqualified-id before 'while'
   while (x[j1]>mid1) or  ((x[j1]=mid1) and (y[j1]>mid2)) do dec(j1);
   ^~~~~
/in/foo.cc:17:5: error: expected unqualified-id before 'if'
     if i1<=j1 then begin
     ^~
/in/foo.cc:19:7: error: 'x' does not name a type
       x[i1]:=x[j1];
       ^
/in/foo.cc:20:7: error: 'x' does not name a type
       x[j1]:=temp1;
       ^
/in/foo.cc:21:7: error: 'temp2' does not name a type
       temp2:=y[i1];
       ^~~~~
/in/foo.cc:22:7: error: 'y' does not name a type
       y[i1]:=y[j1];
       ^
/in/foo.cc:23:7: error: 'y' does not name a type
       y[j1]:=temp2;    
       ^
/in/foo.cc:24:10: error: expected constructor, destructor, or type conversion before '(' token
       inc(i1);
          ^
/in/foo.cc:25:10: error: expected constructor, destructor, or type conversion before '(' token
       dec(j1);
          ^
/in/foo.cc:26:5: error: 'end' does not name a type
     end;
     ^~~
/in/foo.cc:27:3: error: 'until' does not name a type
   until i1>j1;
   ^~~~~
/in/foo.cc:28:3: error: expected unqualified-id before 'if'
   if i1<r then Q2sort(i1,r);
   ^~
/in/foo.cc:29:3: error: expected unqualified-id before 'if'
   if j1>l then Q2sort(l,j1);
   ^~
/in/foo.cc:30:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:32:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:34:9: error: expected constructor, destructor, or type conversion before '(' token
   readln(k);
         ^
/in/foo.cc:35:3: error: expected unqualified-id before 'for'
   for i:=1 to k do 
   ^~~
/in/foo.cc:37:9: error: expected constructor, destructor, or type conversion before '(' token
   Q2sort(1,k);
         ^
/in/foo.cc:38:3: error: expected unqualified-id before 'for'
   for i:=1 to k do
   ^~~
/in/foo.cc:41:3: error: expected unqualified-id before 'for'
   for i:=2 to k do
   ^~~
/in/foo.cc:45:7: error: 'tot' does not name a type
       tot:=0;
       ^~~
/in/foo.cc:46:3: error: expected unqualified-id before 'for'
   for i:=k downto 1 do
   ^~~
/in/foo.cc:48:5: error: 'ans' does not name a type
     ans:=(n+m)*100;
     ^~~
/in/foo.cc:49:3: error: 'ans' does not name a type
   ans:=ans+tot*sqrt(20000)-200*tot;
   ^~~
/in/foo.cc:50:10: error: expected constructor, destructor, or type conversion before '(' token
   writeln(round(ans));
          ^
/in/foo.cc:51:1: error: 'end' does not name a type
 end.
 ^~~