---

Program n7;
Var x, a, b, c, d, e, k: integer;
Begin
  Writeln('Введите пятизначное число:');
  Readln(x);
  a := x div 10000;
  b := x div 1000 mod 10;
  c := x div 100 mod 10;
  d := x div 10 mod 10;
  e := x mod 10;
  k := 0;
  if a = 5 then k := k + 1;
  if b = 5 then k := k + 1;
  if c = 5 then k := k + 1;
  if d = 5 then k := k + 1;
  if e = 5 then k := k + 1;
  Writeln('Количество цифр 5 в числе = ', k);
End.