Programa de Calculo de Sueldo

program  trabajo;
uses wincrt;
var
hdiur,hnoct,costdiur,costnoct,suma,a,b:real;
begin
writeln('****Programa de Calculo de Sueldo****');
writeln('Ingrese Costo de Horas Laboradas diurnas');
readln(costdiur);
writeln('Ingrese Horas Laboradas Diurnas');
readln(hdiur);
writeln('Ingrese Costo de Horas Laboradas Nocturnas');
readln(costnoct);
writeln('Ingrese Horas Laboradas Nocturnas');
readln(hnoct);
a:=costdiur*hdiur;
b:=costnoct*hnoct;
suma:= a+b;
write('total es ', suma:2:2);
if suma < 1780 then
write('  Usted gana una cantidad menor a sueldo minimo')
else
write('  Usted gana una cantidad mayor a sueldo minimo');

end.