кругляши

var
  a, b, k : integer;
 
function cnt(z : byte) : byte;
begin
  case z of
    0, 6, 9 : cnt := 1;
    1..5, 7 : cnt := 0;
    8 : cnt := 2
  end
end;  
 
begin
  k := 0;
  write('введите целое число: ');
  readln(a);
  while a <> 0 do
  begin
    b := a mod 10;
    k := k + cnt(b);
    a := a div 10
  end;
  writeln('количество кругляшей в числе: ', k);
  readln
end.