Склавиатуры вводится целое положительное число. определить, сколько раз в этом числе встретилась цифра 5. packal abc

Var 
  n, c: integer;
begin
  read(n);
  c := 0;
  while n > 0 do begin
    if n mod 10 = 5 then inc(c);
    n := n div 10
  end;
  write(c)
end.