Program suma_numeros;
Uses Wincrt;

Var
horas_d , horas_n , total_dinero : REAL ;

Begin

     writeln('ingrese el numero de horas dirias que trabajo : ');
     readln(horas_d);

     writeln(' ');

     writeln('ingrese el numero de horas nocturnas que trabajo : ');
     readln(horas_n);

     total_dinero :=  (horas_d * 10.11) + (horas_n * 13.45);

     writeln('el total de dinero gana es : ', total_dinero :3:2);






End.