{
Descripcion: Determina el salario semanal de un trabajador dada la hora
dada la tarifa por horas y horas trabajadas. La jornada es de 8 horas y las
horas extras se pagan doble.
www.mis-algoritmos.com
}
uses
	crt;{Cargamos libreria de la pantalla}
var
	salario				: real;
	tarifa_por_hora		: real;
	horas_trabajadas	: real;
begin
	clrscr;{Limpiamos pantalla}
	write('Tarifa por hora: ');{Salida en pantalla}
	readln(tarifa_por_hora);{Entrada desde el teclado}
	write('Horas trabajadas: ');{Salida en pantalla}
	readln(horas_trabajadas);{Entrada desde el teclado}
	if horas_trabajadas>8 then
			{Evalua salario si trabajo mas de 8 horas}
			salario:=(8*tarifa_por_hora)+(2*(horas_trabajadas-8)*tarifa_por_hora)
		else
			{Evalua salario si trabajo menos de 8 horas}
			salario:=horas_trabajadas*tarifa_por_hora;
	writeln('Salario: ',salario:0:2);{Muestra el salario en pantalla}
	readkey;{Espera una tecla para finalizar}	
end.