program Project1; {$APPTYPE CONSOLE} uses SysUtils; var inp,outp: text; a: array[1..9]of integer; c: char; i,ans: integer; begin assign(inp,'count.in'); assign(outp,'count.out'); reset(inp); rewrite(outp); while not eof(inp)do begin read(inp,c); if c in ['1'..'9']then inc(a[StrToInt(c)]); end; ans:=0; for i:=1 to 9 do if a[i]<>0 then inc(ans); writeln(outp,ans); close(inp); close(outp); end.