{$codepage UTF8} FUNCTION Fibonacci(n:qword):qword; var i,j,c,aux:integer; Begin i:=1; j:=0; for c:=1 to n do Begin aux:=j+i; i:=j; j:=aux; End; Fibonacci:=j End; BEGIN Writeln(Fibonacci(20)); END.