Program PascalGuru;

var i,n,summa:integer;

{-----------------------}
function IsFib(n:longint):boolean;
var i,i1,i2:longint;
begin
if n=1 then IsFib:=true
else
begin
i1:=1;i2:=1;
repeat
i:=i1+i2;
if i=n then IsFib:=true
else
begin
i1:=i2;
i2:=i;
end;
until i>=n;
if i>n then IsFib:=false;
end;
end;
{-------------------}

begin
write('n: ');readln(n);
summa:=0;
for i:=2 to n do
if IsFib(i) then summa:=summa+i;

write('Summa= ',summa);

readln;
end.