foo.cpp:1:17: error: too many decimal points in number
 var lc,rc:array[1..20000] of longint;
                 ^
foo.cpp:2:9: error: too many decimal points in number
 a:array[1..20000] of char; h,t:longint; c:char; procedure sea1(r:longint);
         ^
foo.cpp:1:1: error: 'var' does not name a type
 var lc,rc:array[1..20000] of longint;
 ^
foo.cpp:2:2: error: found ':' in nested-name-specifier, expected '::'
 a:array[1..20000] of char; h,t:longint; c:char; procedure sea1(r:longint);
  ^
foo.cpp:2:1: error: 'a' does not name a type
 a:array[1..20000] of char; h,t:longint; c:char; procedure sea1(r:longint);
 ^
foo.cpp:2:28: error: 'h' does not name a type
 a:array[1..20000] of char; h,t:longint; c:char; procedure sea1(r:longint);
                            ^
foo.cpp:2:41: error: 'c' does not name a type
 a:array[1..20000] of char; h,t:longint; c:char; procedure sea1(r:longint);
                                         ^
foo.cpp:2:49: error: 'procedure' does not name a type
 a:array[1..20000] of char; h,t:longint; c:char; procedure sea1(r:longint);
                                                 ^
foo.cpp:3:1: error: 'begin' does not name a type
 begin
 ^
foo.cpp:4:29: error: expected constructor, destructor, or type conversion before '(' token
 if a[r]='0' then exit; write(a[r]); if lc[r]<>0 then sea1(lc[r]); if rc[r]<>0 then sea1(rc[r]); end;
                             ^
foo.cpp:4:37: error: expected unqualified-id before 'if'
 if a[r]='0' then exit; write(a[r]); if lc[r]<>0 then sea1(lc[r]); if rc[r]<>0 then sea1(rc[r]); end;
                                     ^
foo.cpp:4:67: error: expected unqualified-id before 'if'
 if a[r]='0' then exit; write(a[r]); if lc[r]<>0 then sea1(lc[r]); if rc[r]<>0 then sea1(rc[r]); end;
                                                                   ^
foo.cpp:4:97: error: 'end' does not name a type
 if a[r]='0' then exit; write(a[r]); if lc[r]<>0 then sea1(lc[r]); if rc[r]<>0 then sea1(rc[r]); end;
                                                                                                 ^
foo.cpp:5:1: error: 'procedure' does not name a type
 procedure sea2(r:longint);
 ^
foo.cpp:6:1: error: 'begin' does not name a type
 begin
 ^
foo.cpp:7:24: error: expected unqualified-id before 'if'
 if a[r]='0' then exit; if lc[r]<>0 then sea2(lc[r]); write(a[r]); if rc[r]<>0 then sea2(rc[r]); end;
                        ^
foo.cpp:7:59: error: expected constructor, destructor, or type conversion before '(' token
 if a[r]='0' then exit; if lc[r]<>0 then sea2(lc[r]); write(a[r]); if rc[r]<>0 then sea2(rc[r]); end;
                                                           ^
foo.cpp:7:67: error: expected unqualified-id before 'if'
 if a[r]='0' then exit; if lc[r]<>0 then sea2(lc[r]); write(a[r]); if rc[r]<>0 then sea2(rc[r]); end;
                                                                   ^
foo.cpp:7:97: error: 'end' does not name a type
 if a[r]='0' then exit; if lc[r]<>0 then sea2(lc[r]); write(a[r]); if rc[r]<>0 then sea2(rc[r]); end;
                                                                                                 ^
foo.cpp:8:1: error: 'procedure' does not name a type
 procedure sea3(r:longint);
 ^
foo.cpp:9:1: error: 'begin' does not name a type
 begin
 ^
foo.cpp:10:24: error: expected unqualified-id before 'if'
 if a[r]='0' then exit; if lc[r]<>0 then sea3(lc[r]); if rc[r]<>0 then sea3(rc[r]); write(a[r]); end;
                        ^
foo.cpp:10:54: error: expected unqualified-id before 'if'
 if a[r]='0' then exit; if lc[r]<>0 then sea3(lc[r]); if rc[r]<>0 then sea3(rc[r]); write(a[r]); end;
                                                      ^
foo.cpp:10:89: error: expected constructor, destructor, or type conversion before '(' token
 if a[r]='0' then exit; if lc[r]<>0 then sea3(lc[r]); if rc[r]<>0 then sea3(rc[r]); write(a[r]); end;
                                                                                         ^
foo.cpp:10:97: error: 'end' does not name a type
 if a[r]='0'