Pascal - Giorni

Ciao sn nuovo d questa community e programmo sl in pascal (x il momento) da quake mesetto......
mi domandavo se c fosse un modo (tramite programma appunto pascal) x sapere ke giorno è oggi (lunedì, martedì, ecc)...
ringrazio in anticipo kiunque risponderà

Innanzitutto benvenuto.
Ti propongo subito una risposta: nell'unità windos del pascal c'è un'utile funzione chiamata GetDate che consente di ottenere la data corrente settata sul tuo sistema operativo. Un piccolo esempio:

program data;
uses crt,windos;
var y,m,d,dow:word;
    dows:string;

begin
    clrscr;
    GetDate(y, m, d, dow);
    wirteln('Oggi è il giorno ',d,' del mese ',m,' dell''anno ',y);
    case dow of
         0: dows:='domenica';
         1: dows:='lunedì';
         2: dows:='martedì';
         3: dows:='mercoledì';
         4: dows:='giovedì';
         5: dows:='venerdì';
         6: dows:='sabato';
    end;
    wirteln('Oggi è ',dows);
end.

La defininizione ufficiale di questa procedura è:

procedure GetDate(var Year, Month, Day, DayOfWeek:word);

Gli argomenti della procedura hanno un range standard:
Year: 1980..2099
Month: 1..12
Day: 1..31
DayOfWeek: 0..6 (dove 0 corrisponde a domenica)

oppure: sapendo il giorno della settimana dl 1° gennaio, dividi il giorno inserito(totale, cioe' dal 1 gennaio)/ 7, poi tramite un case decidi che giorno e'(0:Giorno del 1°gennaio,1continui in ordine..))

Sì, se vuoi complicarti la vita è giusto .