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.