Program z funkcją, nietypowy bład

program fibonacci; 
var 
   liczba: integer;

function fib (n:integer):integer;
	var
	a,b,c:integer;
	i:byte;
begin
a:=1;
b:=1;
  if liczba=0 then fib:=0
  else
  if liczba<=2 then fib:=a
  else
  begin
    for i:=3 to liczba do
    begin
      c:=a+b;
      a:=b;
      b:=c;
  end;
 fib:=c;
end;
	BEGIN
	writeln('podaj liczbe ');
	readln(n);
	writeln(fib(n));
	readln;

end.

W ostatniej linijce wyświetla bład (wymagany średnik)... Zupełnie nie rozumiem dlaczego nie chce kompilować...

Może dlatego że ilość beginów nie jest równa ilości endów.

Też mi nietypowy błąd.

 
function fib (n:integer):integer;
        var
        a,b,c:integer;
        i:byte;
begin
a:=1;
b:=1;
  if liczba=0 then fib:=0
  else
  if liczba<=2 then fib:=a
  else
  begin
    for i:=3 to liczba do
    begin
      c:=a+b;
      a:=b;
      b:=c;
  end;
 fib:=c;
end;

Tutaj brakuje jednego end.
Na zadanie domowe musisz znaleźć, gdzie go brakuje :]