program average;

variables
i,fibo:integer;

module fibonacci ( n :integer;fib:integer;)
variables
fib1,fib2,n1:integer;
begin

if n<3
then fib := 1;
else 
begin
        n1:=n-1;
        fibonacci(n1,fib1);
        n1:=n-2;
        fibonacci(n1,fib2);

        fib := fib1+fib2;

end;


end;


begin


i:=1;


loop

        fibonacci(i,fibo);

        write fibo,'*';

        i:=i+1;

        if i>15 then exit;else;
end; 



end ;/*end of program*/