foo.cc:4:11: error: too many decimal points in number
    4 | a,c:array[0..10000] of longint;
      |           ^~~~~~~~
foo.cc:1:1: error: 'program' does not name a type
    1 | program exam;
      | ^~~~~~~
foo.cc:2:1: error: 'var' does not name a type
    2 | var m,n,k,l,xx,x,s,x1,x2,d:int64;
      | ^~~
foo.cc:3:1: error: 'i' does not name a type
    3 | i,j,jj:longint;
      | ^
foo.cc:4:1: error: 'a' does not name a type
    4 | a,c:array[0..10000] of longint;
      | ^
foo.cc:6:1: error: 'function' does not name a type; did you mean 'union'?
    6 | function pd(a,p,t:int64):int64;
      | ^~~~~~~~
      | union
foo.cc:7:1: error: 'var' does not name a type
    7 | var i,j,k,q:int64;
      | ^~~
foo.cc:8:1: error: 'begin' does not name a type
    8 | begin
      | ^~~~~
foo.cc:10:1: error: 'k' does not name a type
   10 | k:=a;
      | ^
foo.cc:11:1: error: 'pd' does not name a type
   11 | pd:=1;
      | ^~
foo.cc:12:1: error: expected unqualified-id before 'while'
   12 | while q>0 do
      | ^~~~~
foo.cc:16:1: error: 'k' does not name a type
   16 | k:=k*k mod t;
      | ^
foo.cc:17:1: error: 'q' does not name a type
   17 | q:=q shr 1;
      | ^
foo.cc:18:1: error: 'end' does not name a type
   18 | end;
      | ^~~
foo.cc:19:1: error: 'end' does not name a type
   19 | end;
      | ^~~
foo.cc:21:1: error: 'begin' does not name a type
   21 | begin
      | ^~~~~
foo.cc:23:1: error: 'xx' does not name a type
   23 | xx:=1;
      | ^~
foo.cc:24:1: error: 'a' does not name a type
   24 | a[1]:=1;
      | ^
foo.cc:25:1: error: 's' does not name a type
   25 | s:=pd(x,x,1000);
      | ^
foo.cc:26:1: error: expected unqualified-id before 'for'
   26 | for i:=s-k+1 to s-1 do
      | ^~~
foo.cc:29:1: error: 'xx' does not name a type
   29 | xx:=0;
      | ^~
foo.cc:30:1: error: expected unqualified-id before 'for'
   30 | for j:=1 to 10000 do
      | ^~~
foo.cc:33:1: error: 'xx' does not name a type
   33 | xx:=a[j] div 10;
      | ^~
foo.cc:34:1: error: 'a' does not name a type
   34 | a[j]:=a[j] mod 10;
      | ^
foo.cc:35:1: error: 'end' does not name a type
   35 | end;
      | ^~~
foo.cc:36:1: error: expected unqualified-id before 'while'
   36 | while xx>0 do
      | ^~~~~
foo.cc:39:1: error: 'a' does not name a type
   39 | a[j]:=xx mod 10;
      | ^
foo.cc:40:1: error: 'xx' does not name a type
   40 | xx:=xx div 10;
      | ^~
foo.cc:41:1: error: 'end' does not name a type
   41 | end;
      | ^~~
foo.cc:42:1: error: 'x2' does not name a type
   42 | x2:=i+k-s;
      | ^~
foo.cc:43:1: error: expected unqualified-id before 'for'
   43 | for jj:=10000 downto 1 do
      | ^~~
foo.cc:46:1: error: expected unqualified-id before 'if'
   46 | if jj>1 then
      | ^~
foo.cc:48:1: error: 'end' does not name a type
   48 | end;
      | ^~~
foo.cc:49:1: error: 'a' does not name a type
   49 | a:=c;
      | ^
foo.cc:50:1: error: 'end' does not name a type
   50 | end;
      | ^~~
foo.cc:51:1: error: 'l' does not name a type
   51 | l:=10000;
      | ^
foo.cc:52:1: error: expected unqualified-id before 'while'
   52 | while (a[l]=0) and (l>0) do dec(l);
      | ^~~~~
foo.cc:53:1: error: expected unqualified-id before 'for'
   53 | for i:=l downto 1 do
      | ^~~
foo.cc:55:1: error: 'end' does not name a type
   55 | end.
      | ^~~

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