program testday; uses dayadt; var oggi: day; begin writeln('Che giorno e'' oggi?'); leggigiorno(oggi); write('Oggi e'' '); scrivigiorno(oggi); if oggi= Domenica then writeln(', percio'' e'' festa.') else writeln(', percio'' si deve lavorare.') end.