RE:Interesante: ¿ Como usar dinero y tiempo ?
No es tan dificil, algo que se me ocurre es lo siguiente
horas:=h_ini - h_fin;
horas:=horas*60;
if horas <= 60 then
write('Paga: $',una)
else begin
cargo:=(horas-60)/60*(5*extra);
writeln ('Paga : $',5.00);
writeln('mas 25% : $',cargo);
end;
Paso por paso
1 A la variable horas le asignas la resta de hora incial menos la hora final
2 A esa variable la multiplicas por 60 lo que te da el total de minutos
3 Si "horas" es <= 60 quiere decir que solo se cobra 1 hora y escibes el mensaje correspondiente, donde "una" es una constante
4 Si no quiere decir que estuvo mas de 1 hora, (horas-60) indica los minutos extras depues de 1 hora, (horas-60)/60 me da el total de horas extras, calculé el porcentaje extra de $5 (aqui puedes camabiar el valor por el que sea), "extra" es una constante, todo esto se lo asigno a "cargo" que guadara el costo de las horas extra, y se escribe en pantalla.
espero te ayude, si no puedes escribirme