Определить сколько раз в данное четырехзначное число входит цифра 1

Var  iNum: integer; //Число
  
begin
  readln(iNum);
  writeln(iNum div 1, ' раз');
end.