var a:array [1..100] of integer;
n, i:integer;
begin
n:=100;
for i:=0 to n do
a[i]:=i;
for i:=1 to n do
begin
a[i]:=a[i]-a[i-1];
end;
writeln(a[90]);
end.