Kod: Zaznacz cały
program fibonacci;
var n,k:integer;
var tab:array[1..100] of real;
begin
writeln ('podaj k');
readln (k);
tab[1]:=1;
tab[2]:=1;
for n:=3 to k do begin
tab[n]:=tab[n-1]+tab[n-2];
writeln (k,' : ',tab[k]:100:0);
end;
readln;
end.