Calculo de Horas Diurnas, Nocturnas y Totales

Program logicander;


Uses WinCrt;
Var
horas, horastotal, diurnas, nocturas : real;
Begin


WriteLn ( 'Ingrese las horas' );
ReadLn (horas);


diurnas:= horas*10.11;
nocturas:= horas*13.45;
horastotal:= (horas*10.11)+(horas*13.45);


WriteLn ( 'El resultado por Horas diurnas es: ', diurnas:3:3);
WriteLn ( 'El resultado por Horas nocturas es: ', nocturas:3:3);
WriteLn ( 'El resultado de Horas es: ', horastotal:3:3);


end.