برتر رایانه بهشهر

زبان Passcal

N  جمله از دنباله ی فیبو ناچی را در خروجی چاپ میکند N عدد را از ورودی گرفته

program test;

var

a ,b ,c ,i ,n : integer;

begin

write('enter a number:');

readln(n);

a:=1;

b:=0;

c:=a+b;

for i:=1 to n do

begin

write(c:10);

a:=b;

b:=c;

c:=a+b;

end;

readln

end.