1 2 3 4 5 6 7
program WritelnMulti; var n: integer; begin n := 10; writeln('Fibonacci(', n, ') = ', n); end.