program project1LerNumeros;
 
uses
  SysUtils;
 
var
  numero: integer;
  i: integer;
  count: integer;
  NumeroTexto : String; // String é um vetor de caracteres dinâmico
 
begin
  count := 0;
 
  Writeln(Utf8ToAnsi('Vem ai a pergunta que vale 1 milhão reais!'));
  Writeln('');
  Writeln('Quantos noves existe entre 0 e 100?');
 
 
  for numero:= 0 to 100 do
  begin
    NumeroTexto := IntToStr(numero);
 
    { Percorrendo a string como um vetor de caracteres }
    for I := 1 to Length(NumeroTexto) do
    begin
      { Verificando se o dígito é igual a 9 }
      if NumeroTexto[i] = '9' then
      begin
        count := count + 1;
      end;
    end;
  end;
 
  Write(Utf8ToAnsi('Valendo 1 milhão de reais, a '));
  Writeln(Utf8ToAnsi('quantidade de números 9 entre 0 e 100 é... '));
 
  Writeln('');
  Writeln(count);
  Writeln('');
 
  Writeln('Certa resposta!!! kkkkkk');
 
  Readln;
end.