Ist schon lang her, dass ich Pascal programmiert hab, also steinigts mich nicht, wenns falsch ist.
IMHO fehlt a BEGIN und a END:
...
IF value >1 THEN BEGIN
FOR i:=1 TO value DO
BEGIN
fib:=fibn_1+fibn_2;
fibn_2:=fibn_1;
fibn_1:=fib;
END
END
...
BTW: Solltest nicht vielleicht eine Prüfung des eingegebenen Wertes einbauen?
hth
|