Program xx5_60a;<br/>
var fn,fn_1,fn_2,n:integer; {Longint}<br/>
Begin<br/>
fn_1:=1;<br/>
fn_2:=1;<br/>
n:=1;<br/>
while fn_2<=maxint-fn_1 do<br/>
 begin<br/>
 fn:=fn_2+fn_1; Inc(n);<br/>
 fn_2:=fn_1;<br/>
 fn_1:=fn<br/>
 end;<br/>
 writeln('Number last:', n);<br/>
 END.<br/>
<br/>
<br/>
Program cc5_60b;<br/>
 var  fn,fn_1,fn_2,n,s:integer; {Longint}<br/>
 Begin<br/>
 fn_1:=1;<br/>
 fn_2:=1;<br/>
 n:=1;<br/>
 s:=2;<br/>
while fn_2<=maxint-s-fn_1 do<br/>
 begin<br/>
 fn:=fn_2+fn_1;<br/>
 inc(n);<br/>
 Inc(s,fn);<br/>
 fn_2:=fn_1;<br/>
 fn_1:=fn<br/>
 end;<br/>
writeln('summa:' , s, 'count:', n);<br/>
END.<br/>
</p>