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.