program trizenkliai_skaiciai;

  type lentele = array [100..999] of boolean;

  var i, s1, s2, s3, triz, viso: integer;
      buvo: lentele;
begin
  { inicializuojame login masyv… }
  for i := 100 to 999 do
    buvo[i] := false;
  { pa‘ymime gautus tri‘enklius skai‡ius }
  read (s1, s2, s3);
  while s3 <> -1 do
    begin
      triz := s1*100 + s2*10 + s3;
      if triz >= 100
         then buvo[triz] := true;
      s1 := s2; s2 := s3; read (s3);
    end;
  { suskai‡iuojame kiek gavome skirting— tri‘enkli— skai‡i— }
  viso := 0;
  for i := 100 to 999 do
    if buvo[i] then viso := viso + 1;
  writeln (viso);
end.
