{
Universidade de Brasília
Instituto de Ciências Exatas
Departamento de Ciência da Computação
Introdução a Ciência da Computação - 2/2006

Aluno: Leonardo Marques Nunes de Mattos
Matrícula: 06/89041
Turma: D
Programa feito no Linux (Slackware 10.2 / Kernel 2.4.31)
}

program at10;

var
nome : string;
reajuste,salario : real;
categoria : char;

procedure categoria_proc (a : char);
	begin
		if ((a='a') or (a='c') or (a='f') or (a='g') or (a='h')) then reajuste := 1.10;
		if ((a='b') or (a='d') or (a='e') or (a='i') or (a='j') or (a='t')) then reajuste := 1.15;
		if ((a='k') or (a='r')) then reajuste := 1.25;
		if ((a='l') or (a='m') or (a='n') or (a='o') or (a='p') or (a='q') or (a='s')) then reajuste := 1.35;
		if ((a='u') or (a='v') or (a='x') or (a='y') or (a='w') or (a='z')) then reajuste := 1.50;
	end;
	

begin
	{entrada de dados}
	write ('Entre o nome do empregado: ');
	readln	(nome);
	write ('Entre a categoria do empregado (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, x, z, w ou y): ');
	readln (categoria); 
	write ('Entre o salário atual do(a) empregado(a) ', nome, ': ');
	readln (salario); writeln ();
	categoria_proc (categoria);

	{saida de dados}
	writeln ('Resultados');
	writeln ('Nome: ', nome);
	writeln ('Salario antes do reajuste: R$', salario:0:2);
	writeln ('Salario reajustado: R$', (salario*reajuste):0:2);
end.