Pequenas Doses De Uma Nerd

Program hotel ;

// Autores: Fabio Augusto Pinheiro , Geissiane A. de Aguiar

// Função: Calcular valores de um serviço de Hotel

VAR

opcao , nome, acomodacao: char;

dia, taxa, total, sair, montante: real;

Begin

begin

montante := total;

Writeln ('1 - Registrar 2 - Relatório Financeiro 3 - Sair');

readln (opcao);

if opcao = '1' then

Writeln ('Digite o nome do hóspede');

readln (nome);

Writeln ('Número de Diárias a serem utilizadas por' , nome);

readln (dia);

begin

begin

if (dia < 15) then

taxa := (dia * 20.00);

end;

begin

if (dia = 15) then

taxa := (dia * 14.00);

end;

begin

if (dia > 15) then

taxa := (dia * 12.00);

end;

end;

Writeln ('Tipo de acomodação: 1 - Apartamento 2 - Suíte Luxo 3 - Suíte Master');

readln (acomodacao);

begin

begin

if acomodacao = '1' then

total := (120.00 * dia) + taxa;

Writeln (total);

end;

begin

if acomodacao = '2' then

total := (180.00 * dia) + taxa;

Writeln (total);

end;

begin