var

  x, count:integer;

begin

  write('x = '); readln(x);

  write('Количество троек в числе ', x, ' - ');

  while x > 0 do

  begin

    if x mod 10 = 3 then

      count := count + 1;

    x := x div 10;

  end;

  writeln(count);

end.