Написать программку, которая по данной последовательности цифр (не более 100) обретает

var
nbsp;nbsp;nbsp;nbsp;a, b, c : array [1..100] of byte;
nbsp;nbsp;nbsp;nbsp;i, na, nb, nc : integer;
nbsp;nbsp;nbsp;nbsp;s, s1, s2 : string;
nbsp;nbsp;nbsp;nbsp;f1, f2 : text;
procedure summa;
nbsp;nbsp;var i, p : integer;
begin
nbsp;nbsp;p:=0;
nbsp;nbsp;for i:=1 to nc do
nbsp;nbsp;begin p:=p+c[i]+a[i]; c[i]:=p mod 10; p:=p div 10 end;
nbsp;nbsp;if pgt;0 then begin nc:=nc+1; c[nc]:=p end
end;
begin
nbsp;nbsp;for i:=1 to 100 do begin a[i]:=0; b[i]:=0; c[i]:=0 end;
nbsp;nbsp;assign(f1,input.txt); reset(f1);
nbsp;nbsp;assign(f2,output.txt); rewrite(f2);
nbsp;nbsp;readln(f1,s);
nbsp;nbsp;na:=1; a[1]:=1; nb:=1; b[1]:=1; s1:=s[1];
nbsp;nbsp;for i:=2 to length(s) do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;s2:=s[i]; s1:=s1+s2; nc:=nb; c:=b;
nbsp;nbsp;nbsp;nbsp;if (10lt;=s1) and (s1lt;=33) then summa;
nbsp;nbsp;nbsp;nbsp;na:=nb; a:=b; nb:=nc; b:=c; s1:=s2
nbsp;nbsp;end;
nbsp;nbsp;for i:=nc downto 1 do write(f2,c[i]); close(f2)
end.