Fribonacci Em Pascal

program fibonacci;

var n,c,x,z,y :integer;

begin

repeat

write('Digite um numero no minimo =3: ');

readln(n);

until n>= 3;

x:=1;

y:=1;

c:=1;

write(x,',',y);

while c <= n-2 do

Begin

z:= y + x;

x:=y;

y:=z;

write(',',y);

c:= c+1;

End;

readln;

END.

program fibo2;

var n,x,y,i :integer;

Begin

repeat

write('Digite um valor maior que 2: ');

readln(n);

until n > 2;

x:=1;

y:=1;

i:=1;

write(x,',',y);

while i <= n-2 do

Begin

if i MOD 2 = 0 then

Begin

x:=x+y;

write(',',x);

End

Else

Begin

y:=y+x;

write(',',y);

End;

i:=i+1;

End;

readln;

END.