program Fibonacci;
var
a,b,suma,N:integer; 

begin
    N:=100;    
    a:=0;
    b:=1;
    suma:=0;
    writeln (a);
    writeln (b);
    
    while suma <= N do    
        Begin
        suma:= a+b;
        writeln (suma);
        a:=b;
        b:=suma;
        end; 
    
end.