program fibonacci;

function fibonaci(n:integer): integer;
begin
    if(n < 2) then
        fibonaci := n
    else
        fibonaci := fibonaci(n-2) + fibonaci(n-1);
end;
var
    i:integer;

begin
    for i := 0 to 16 do
        write(fibonaci(i), ', ');
    writeln('...');
end.