program mn;
uses crt;
var a:array[1..100]of integer;
n,i:integer;
BEGIN
ClrScr;
Write('N:');readln(n);
a[1]:=1;a[2]:=1;
Write(a[1]:3,'',a[2]:3);
for i:=3 to n do
begin
a[i]:=a[i-1]+a[i-2];
Write(a[i]:10);
end;
readln;
END.