lama_byterun/regression/test029.lama
Danya Berezun 3fdc3e7f2a crap code
2024-07-11 15:19:22 +02:00

21 lines
No EOL
249 B
Text

var i, n, result;
fun fib (n) {
var r;
if n <= 1
then result := 1
else
fib (n-1);
r := result;
fib (n-2);
result := result + r
fi
}
n := read ();
for i := n, i > 0, i := i-1 do
fib (i);
write (i);
write (result)
od