Matematické Fórum

program fibonacciho_posloupnost_vypis_n_prvku;
var a,b,n,i,x:integer;

begin
writeln('Zadej n');
read(n);
writeln('Zadej prvni cislo rady');
read(a);
writeln('Zadej druhe cislo rady');
read(b);
write(a,' ',b,' ');
i:=2;
if n>2 then
            repeat
                  a:=a+b;
                  write(a,' ');
                  i:=i+1;
                  x:=b;
                  b:=a;
                  a:=b;
            until i=n;
end.