Ciao a tutti!
Se riuscite ad aiutarmi a fare funzionare questo programma siete mitici.. La prof nn ha la minima intenzione d spiegarcelo..
La traccia del problema è: "Data la data del giorno (g,m,a) stabilire se la data (g1,m1,a1) è antecedente o futura alla data del giorno.
Visualizza la scritta “Data passata” oppure “Data futura”."
Vi riporto sotto quello che ho provato a fare io con Pascal ma non funzione come dovrebbe..

Ciao ciao

PROGRAM DATA;
USES CRT;
VAR g,m,a,g1,m1,a1 : integer;
BEGIN
CLRSCR;
WRITELN ('Inserisci il giorno corrente');
READLN (g);
WRITELN ('Inserisci il mese corrente');
READLN (m);
WRITELN ('Inserisci l anno corrente');
READLN (a);
WRITELN ('Inserisci un giorno');
READLN (g1);
WRITELN ('Inserisci un mese');
READLN (m1);
WRITELN ('Inserisci un anno');
READLN (a1);
WRITELN;
IF a1>a
then
WRITELN ('Data futura')
else
IF (m1>m) AND (g1<g)
then
WRITELN ('Data futura')
else
WRITELN ('Data passata');
READLN;
END.