program logicander;
Uses WinCrt;
Var
n : integer;
hrd, csd, hrn, csn, td, tn, suma, ingreso : real;
Begin
WriteLn ( 'Cuantos trabajadores tiene la empresa' );
ReadLn (n);
For i:= 1 to n do
Begin
WriteLn ( 'Cuantas horas de trabajo al dia' );
ReadLn (hrd);
WriteLn ( 'Costo de la hora diurna' );
ReadLn (csd);
td:= hrd*csd;
WriteLn ( 'Cuantas horas de trabajo de noche' );
ReadLn (hrn);
WriteLn ( 'Costo de la hora nocturna' );
ReadLn (csn);
tn:= hrn*csn
ingreso:= td+tn
suma:= suma+ingreso
end;
WriteLn ( 'El pago a todos los empleados es: ', suma:5:3);
end.
