Pascal - Gestione stipendi

Inserito da input l’orario di entrata e l’orario di uscita di un dipendente calcolare la paga giornaliera.

program calcolo_paga_giornaliera;
uses crt;
const pagah=5.00;
var hentrata,huscita,tothlav,pagagg:real;
begin
clrscr;
writeln('inserisci l''orario di entrata');
readln(hentrata);
writeln('inserisci l''orario di uscita');
readln(huscita);
tothlav:=(huscita-hentrata);
pagagg:=tothlav*pagah;
writeln('la paga giornaliera Š ' ,pagagg:3:2);
readln;
end.