Listing ESCHIMOSI.PAS
{$N+}
Program Eschimos;
var n,i:Byte;
a,b,c:Comp;
fi,fo:Text;
Begin
Assign(fi,'ESC.IN'); Reset(fi);
Readln(fi,n); Close(fi);
Assign(fo,'ESC.OUT'); Rewrite(fo);
a:=0; b:=1; c:=a+b;
for i:=2 to n do
begin
a:=b; b:=c; c:=a+b;
a:=b; b:=c; c:=a+b
end;
Writeln(fo,c:15:0); Close(fo)
End.