gistfile1.pas

//For-33
var n, i, tmp_1, tmp_2, fibnumer, should_break: integer;
begin
readln(n);
tmp_1:=1; tmp_2:=1;
if (n=1) then begin writeln(1); should_break:=1; end;
if (n=2) then begin write(1,' ', 1);; should_break:=1; end;
if (should_break <> 1) then 
for i:=3 to n do
  begin
  fibnumber:= tmp_1 + tmp_2;
  write(' ',fibnumber);
  tmp_1:= tmp_2;
  tmp_2:= fibnumber;
  end;
end.