С клавиатуры вводится целое положительное число. Определить, сколько раз в этом числе встретилась цифра 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.