110001.011100110011001100110011001100110011001100110011002
Program n1;
var a: integer;
begin
for a:=8 to 96 do
if( a mod 8 =0) then writeln(a);
end.
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.