===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var k := 0;

 while n > 0 do

 begin

   if n mod 10 = 5 then

     Inc(k);

   n := n div 10

 end;

 Print('Количество пятерок в числе равно', k)

end.