foo.cpp:1:13: error: too many decimal points in number
 var f:array[0..201,1..10000] of longint;
             ^
foo.cpp:1:20: error: too many decimal points in number
 var f:array[0..201,1..10000] of longint;
                    ^
foo.cpp:2:9: error: too many decimal points in number
 c:array[1..200] of char;
         ^
foo.cpp:1:1: error: 'var' does not name a type
 var f:array[0..201,1..10000] of longint;
 ^
foo.cpp:2:2: error: found ':' in nested-name-specifier, expected '::'
 c:array[1..200] of char;
  ^
foo.cpp:2:1: error: 'c' does not name a type
 c:array[1..200] of char;
 ^
foo.cpp:3:1: error: 'n' does not name a type
 n,m,i,j,k,l:longint;
 ^
foo.cpp:4:1: error: 'begin' does not name a type
 begin
 ^
foo.cpp:6:1: error: expected unqualified-id before 'while'
 while n<>0 do
 ^
foo.cpp:9:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(n);
       ^
foo.cpp:10:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^
foo.cpp:12:1: error: 'k' does not name a type
 k:=1;
 ^
foo.cpp:13:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^
foo.cpp:18:1: error: expected unqualified-id before 'for'
 for j:=1 to k do
 ^
foo.cpp:21:1: error: 'f' does not name a type
 f:=fmod 10000;
 ^
foo.cpp:22:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:23:4: error: expected constructor, destructor, or type conversion before '(' token
 inc(f);
    ^
foo.cpp:24:1: error: expected unqualified-id before 'for'
 for j:=1 to k do
 ^
foo.cpp:27:1: error: 'f' does not name a type
 f:=f mod 10000;
 ^
foo.cpp:28:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:29:1: error: expected unqualified-id before 'if'
 if f<>0 then inc(k);
 ^
foo.cpp:30:1: error: 'end' does not name a type
 end
 ^
foo.cpp:40:1: error: expected unqualified-id before 'for'
 for j:=1 to k do
 ^
foo.cpp:43:1: error: 'f' does not name a type
 f:=fmod 10000;
 ^
foo.cpp:44:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:45:1: error: 'end' does not name a type
 end
 ^
foo.cpp:50:1: error: expected unqualified-id before 'for'
 for j:=1 to k do
 ^
foo.cpp:53:1: error: 'f' does not name a type
 f:=fmod 10000;
 ^
foo.cpp:54:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:55:4: error: expected constructor, destructor, or type conversion before '(' token
 inc(f,2);
    ^
foo.cpp:56:1: error: expected unqualified-id before 'for'
 for j:=1 to k do
 ^
foo.cpp:59:1: error: 'f' does not name a type
 f:=f mod 10000;
 ^
foo.cpp:60:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:61:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:62:1: error: expected unqualified-id before 'if'
 if f<>0 then inc(k);
 ^
foo.cpp:63:1: error: 'end' does not name a type
 end
 ^
foo.cpp:72:1: error: expected unqualified-id before 'for'
 for j:=1 to k do
 ^
foo.cpp:75:1: error: 'f' does not name a type
 f:=fmod 10000;
 ^
foo.cpp:76:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:77:1: error: 'end' does not name a type
 end
 ^
foo.cpp:82:1: error: expected unqualified-id before 'for'
 for j:=1 to k do
 ^
foo.cpp:85:1: error: 'f' does not name a type
 f:=fmod 10000;
 ^
foo.cpp:86:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:87:4: error: expected constructor, destructor, or type conversion before '(' token
 inc(f,2);
    ^
foo.cpp:88:1: error: expected unqualified-id before 'for'
 for j:=1 to k do
 ^
foo.cpp:91:1: error: 'f' does not name a type
 f:=f mod 10000;
 ^
foo.cpp:92:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:93:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:94:1: error: expected unqualified-id before 'if'
 if f<>0 then inc(k);
 ^
foo.cpp:95:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:96:1: error: 'end' does not name a type
 end;
 ^
foo.cpp:97:1: error: expected unqualified-id before 'if'
 if n<>0 then
 ^
foo.cpp:100:1: error: expected unqualified-id before 'for'
 for i:=k-1 downto 1 do
 ^
foo.cpp:103:1: error: expec