Salve a tutti...
ecco,questo è il programma in pascal per stabilire che giorno è della settimana:

program giorno della settimana;
const gs: array (0...6) of string = ('lunedì', 'martedì', 'mercoledì', giovedì', venerdì', sabato', 'domenica', );
var a,m,g,s: integer;
begin
getdate(a,m,g,s);
writeln(gs(s));
end.