// Testado no Lazarus 2.0.4
 
program project38;
 
uses
  SysUtils;
 
var
  nome: String;
  numeroDiarias: Integer;
  totalAPagarPessoa: Double;
  totalGanhoPeloHotel: Double = 0.0; // iniciando a variável direto
  numeroTotalDeDiarias: Integer = 0; // iniciando a variável direto
  i: integer;
  taxa: double;
 
begin
  { Utilizando o for, porque é um número DEFINIDO a ser percorido }
  for i := 1 to 200 do
  begin
    Write(Utf8ToAnsi('Informe o seu nome: '));
    ReadLn(nome);
 
    Write(Utf8ToAnsi('Informe o número de diárias: '));
    ReadLn(numeroDiarias);
 
    if numeroDiarias < 15 then
    begin
      taxa := 20;
    end;
 
    if numeroDiarias = 15 then
    begin
      taxa := 14;
    end;
 
    if numeroDiarias > 15 then
    begin
      taxa := 12;
    end;
 
    { Calcula as diárias }
    totalAPagarPessoa := numeroDiarias * 300;
 
    { Adiciona a taxa }
    totalAPagarPessoa := totalAPagarPessoa + (numeroDiarias * taxa);
 
    { Exibindo o total a pagar da pessoa }
    Write(Utf8ToAnsi('Total a pagar de ' + nome + ' é de: ') +
    FormatFloat('#0.00', totalAPagarPessoa));
 
    { Somando o número total de diárias - acumulador }
    numeroTotalDeDiarias := numeroTotalDeDiarias + numeroDiarias;
 
    { Somando o total ganho do hotel - acumulador }
    totalGanhoPeloHotel := totalGanhoPeloHotel + totalAPagarPessoa;
 
    { Pulando linhas }
    WriteLn('');
    WriteLn('');
  end;
 
  { Exibindo o total de diárias }
  WriteLn(Utf8ToAnsi('Total de diárias é de: '), numeroTotalDeDiarias);
 
  { Exibindo o total ganho pelo hotel }
  Writeln(Utf8ToAnsi('O Total ganho pelo hotel é de: ') +
    FormatFloat('#0.00', totalGanhoPeloHotel));
 
  WriteLn('');
  WriteLn('');
  WriteLn(Utf8ToAnsi('Pressione enter para finalizar.'));
  ReadLn;
end.