program cari suku fibonacci;
uses wincrt;
var x:array[1..50] of integer;
i,n:integer;

begin
x[1]:=1;
x[2]:=1;
write('anda mencari suku ke : ');readln(n);
write(x[1],' ');
write(x[2].' ');

for i :-x[i-1]+x[i-2];
write(x[i],' ');
end;

writeln;
writeln('suku ke ',i,'=',x[i]);
end.