Найти ошибку в (не читает паскаль) 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

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

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