program CrazyCoder;

var
  a, b, c, d, e: integer;

begin
  write('Введите число: ');
  readln(a);
  for c := 0 to 9 do
  begin
    e := 0;
    b := a;
    while b <> 0 do
    begin
      d := b mod 10;
      if d = c then inc(e);
      b := b div 10;
    end;
    writeln('Цифра ', c, ' встречается ', e, ' раз(а)');
  end;
end.