// 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.