chỉ chỗ sai bai này giúp em cái

[tuanrint]

function fibo(n:longint):extended;
var i:longint;
fi_1,fi_2,fi:extended;
begin
if n<=1 then exit(n);
for i:=2 to n do begin
fi:=fi_1+fi_2;
fi_2:=fi_1;
fi_1:=fi;
end;
exit(fi);
end;
var n:longint;
begin
write('Nhap so n');readln(n);
writeln(fibo(n));
End.

em không hiểu cái chỗ exit(n) và exit(fi)

[hungkyo]

báo lỗi sai là gì vậy bạn? exit(n) là thay cho
fibo:=n;exit; đó mà.
đừng dùng extended :)