Uses WinCrt;
Var
diurno, nocturno, cdiurno, cnocturno, total : real;
Begin
WriteLn ( 'Ingrese las horas diurnas trabajadas' );
ReadLn (diurno);
WriteLn ( 'Ingrese las horas nocturnas trabajadas' );
ReadLn (nocturno);
WriteLn ( 'Ingrese el costo de las horas diurnas trabajadas' );
ReadLn (cdiurno);
WriteLn ( 'Ingrese el costo de las horas nocturnas trabajadas' );
ReadLn (cnocturno);
total:= (diurno*cdiurno)+(nocturno*cnocturno);
WriteLn ( 'Su sueldo mensual seria: ', total:5:3);
If total<1780 then
WriteLn ( 'Usted gana por debajo del sueldo minimo' )
else
WriteLn ( 'Usted gana por encima del sueldo minimo' )
end.
