program ed;</br>
uses crt;</br>
var k:integer;</br>
function fib(n:integer):integer;</br>
begin
if n<=2 then fib:=1 else fib:=fib(n-1)+fib(n-2);</br>
end;</br>
Begin
writeln('vvedite n');</br> readln(k);</br>
writeln('n-noe chislo fibonachi=',fib(k));</br>
readln;</br>
End.