program fib(input, output);
var
	i, done: integer;

function fib(n:integer) : integer;
var
	j, k : integer;
begin
	if n = 1 then
		result := 1
	else if n = 2 then
		result := 1
	else
		result := fib(n-1) + fib(n-2);
end

begin
	done := 0;
	while done = 0 do begin
		write("Enter a number (0 to quit) : ");
		read(i);
		if i = 0 then
			done := 1
		else begin
			write("fib(");
			write(i);
			write(") = ");
			i := fib(i);
			write(i);
			write("\n");
		end;	{ else part }
	end;	{ while }
end