===== PascalABC.NET =====
begin
var n := ReadInteger;
var k := 0;
while n > 0 do
if n mod 10 = 5 then
Inc(k);
n := n div 10
end;
Print('Количество пятерок в числе равно', k)
end.
