Calculo de Horas Trabajadas Ejercicio 1

Program Horas_Calculadas;
Uses WinCrt;
Var
hd,cd,hn,cn,calculodiurno,calculonocturno,total:real;
Begin
Writeln('***Calculo de Horas Trabajadas');
Writeln('');
Writeln('Ingrese las Horas Diurnas trabajadas');
Readln(hd);
Writeln('Ingrese el Costo de la Hora Diurna');
Readln(cd);
Writeln('Ingrese la Cantidad de Horas Nocturnas Trabajadas');
Readln(hn);
Writeln('Ingrese el Costo de la Hora Nocturna');
Readln(cn);
calculodiurno:=hd*cd;
calculonocturno:=hn*cn;
total:=calculodiurno+calculonocturno;
Writeln('El trabajador gano en Diurnos: ',calculodiurno:6:2);
Writeln('El trabajador gano en Nocturnos: ',calculonocturno:6:2);
Writeln('El trabajador gano en Total: ',total:6:2);
if total < 1780 then
Writeln('Gana menos del Sueldo Minimo')
else
Writeln('Gana mas del Sueldo Minimo')

End.