var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
if ((i mod 10)-(i div 100)=1) then k:=k+1;
writeln ('Kol-vo=',k);
end.