Program fibonaci;
uses crt;

var
Fa,Fb,Fn:word;
x,n:byte;

begin
clrscr;
write('Zadaj ktore fibonaciho cislo chces vypocitat: ');
readln(n);
Fb := 1;

repeat
Fn := Fa + Fb;
Fb := Fa;
Fa := Fn;
x := x + 1;
until (x = n);

writeln(n,'. Fibonaciho cislo je ',Fn);
readln;
end.