var
i:byte;

function sl(x:integer):longint;
begin
if x=1
  then sl:=0
  else if x=2
        then sl:=1
        else sl:=sl(x-2)+sl(x-1);
end;

begin
for i:=1 to 30 do
  write(sl(i),' ');
writeln;
end.
{so easy!!!}

+++++++++++++

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  i :byte;
  x,y,t:longint;
begin
  x := 0;
  y := 1;
  writeln(0);
  writeln(1);
   for i:=3 to 30 do
   begin
     t := x+y;
     writeln(t);
     x := y;
     y :=t;
   end;
   readln;
end.