foo.cc:2:10: error: too many decimal points in number
    2 | f:array [0..5000] of longint;
      |          ^~~~~~~
foo.cc:1:1: error: 'var' does not name a type
    1 | var
      | ^~~
foo.cc:3:2: error: found ':' in nested-name-specifier, expected '::'
    3 | s:ansistring;
      |  ^
      |  ::
foo.cc:3:1: error: 's' does not name a type
    3 | s:ansistring;
      | ^
foo.cc:4:1: error: 'l' does not name a type
    4 | l,i:longint;
      | ^
foo.cc:5:1: error: 'begin' does not name a type
    5 | begin
      | ^~~~~
foo.cc:7:1: error: expected unqualified-id before 'while'
    7 | while (s<>'0') do
      | ^~~~~
foo.cc:10:1: error: 'l' does not name a type
   10 | l:=length(s); f[0]:=1;
      | ^
foo.cc:10:15: error: 'f' does not name a type
   10 | l:=length(s); f[0]:=1;
      |               ^
foo.cc:11:1: error: 's' does not name a type
   11 | s:=s+'9';
      | ^
foo.cc:12:1: error: expected unqualified-id before 'for'
   12 | for i:=0 to l-1 do
      | ^~~
foo.cc:15:1: error: expected unqualified-id before 'if'
   15 | if (s[i+1]='1') or ((s[i+1]='2') and (s[i+2]<='6')) then f[i+2]:=f[i+2]+f[i];
      | ^~
foo.cc:16:1: error: 'end' does not name a type
   16 | end;
      | ^~~
foo.cc:17:8: error: expected constructor, destructor, or type conversion before '(' token
   17 | writeln(f[l]);
      |        ^
foo.cc:18:7: error: expected constructor, destructor, or type conversion before '(' token
   18 | readln(s);
      |       ^
foo.cc:19:1: error: 'end' does not name a type
   19 | end;
      | ^~~
foo.cc:20:1: error: 'end' does not name a type
   20 | end.
      | ^~~

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