program project38;
 
uses
  SysUtils;
 
var
  nome: string;
  numeroDiarias: integer;
  totalAPagarPessoa: double;
  totalGanhoPeloHotel: double = 0.0;
  numeroTotalDeDiarias: integer = 0;
  i: integer;
  taxa: double;
 
begin
 
  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 := 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 }
    numeroTotalDeDiarias := numeroTotalDeDiarias + numeroDiarias;
 
    { Somando o total ganho do hotel }
    totalGanhoPeloHotel := totalGanhoPeloHotel + totalAPagarPessoa;
 
    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.