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.