program FIBONACCI

uses crt;

var

x,y,z, b : integer;

begin

clrscer;

write(‘masukkan nilai batas : ’ );

readln (b) ;

x:=0:y:=0:z:=1;

while (z<b) do

begin

write(z,’ ‘ );

x:=y;

y:=x;

z:=x+y;

end;

readln;

end.