program fibonachi; {$APPTYPE CONSOLE} uses SysUtils; var s,a1,a2,a3:int64; f:array[1..1000] of int64; max,j,n,m,i:integer; begin readln(n,m); a1:=1; a2:=1; f[2]:=1; if n>m then max:=n else max:=m; for i:=3 to max do begin a3:=a1+a2; a1:=a2; a2:=a3; f[i]:=a3; writeln(i,' ',a3); readln; end; s:=0; for i:=2 to n do begin s:=s+f[i]*f[m];writeln(s);readln;end; for i:=2 to m do begin s:=s+f[i]*f[n];writeln('***',s);readln;end; writeln(s); readln; { TODO -oUser -cConsole Main : Insert code here } end.