Question

Срочно! Помогите найти ошибку в программе... (не читает паскаль)

Program fibonacci;
Var
n:byte;
function fib (n:byte):integer;
begin
if n>2
then fib:=1;
end;
begin
writeln('программа, вычисляющая п-е число Фибоначчи')
write('n=')
readln(n);
write('n-е число Фибоначчи:',fib(n));
end

Answer 1

та не стояли пару ; ток вроде сама прога не правильная она не правильно выводит числа я вторым скрином приложу еще свою прогу написанную по этой задачи 

Answer 2

Program fibonacci;
Var
n:byte;
function fib (n:byte):integer;
begin
if n<=2 then fib:=1
else fib:=fib(n-2)+fib(n-1);
end;
begin
writeln('программа, вычисляющая п-е число Фибоначчи');
write('n=');
readln(n);
write('n-е число Фибоначчи:',fib(n));
end.

Пример:
программа, вычисляющая п-е число Фибоначчи
n=7
n-е число Фибоначчи:13