program fibo; function fib (cislo : integer):longint; begin if cislo = 0 then fib := 0 else if cislo = 1 then fib := 1 else fib := fib ( cislo - 1 ) + fib( cislo - 2 ); end; begin writeln( fib( 500 ) ); end.