Untitled

var tamanhoInicial, tamanhoFinal, numeroDeDias; //Declarando as váriaveis que serão utilizadas
numeroDeDias := 0; //Inicializando o numero de dias com zero

begin
        Writeln('Informe o tamanho inicial: '); //Pede para o usuario informar o tamanho inicial da populacao
        Readln(tamanhoInicial); //Lê o valor informado pelo usuario
        Writeln('Informe o tamanho final: '); //Pede para o usuario informar o tamanho final da populacao
        Readln(tamanhoFinal); //Lê o valor informado pelo usuario

        while(tamanhoInicial < tamanhoFinal) //Repete o trecho de código abaixo até que o tamanho inicial seja igual ao final. (Enquanto o tamanho inicial for menor que o inicial executa o código abaixo.
        begin
                numeroDeDias := numeroDeDias +1; //Se a condicao acima for verdadeira é porque o tamanho inicial ainda nao igualou o final, entao o numero de dias é incrementando de 1.

                tamanhoInicial := tamanhoInicial*2; //Se a condicao acima for verdadeira é porque o tamanho inicial ainda nao igualou o final e um dia se passou, entao a populacao inicial dobra de tamanho
        end;

        Writeln('O numero de dias necessario é: ' numeroDeDias); //Exibe na tela o resultado do numero de dias.
end. //Fim :D