Um hotel com 30 quartos cobra R$ 50,00 por diária e mais uma taxa de serviços.

Sugestão de resposta em pascal, Delphi, Lazarus

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