Il prof ci ha dato da scrivere un algoritmo da tradurre in seguito in PASCAL con la seguente traccia:

Date in Input 2 date di nascita di 2 persone e il relativo nome, visualizzare in nome di quello più giovane!!

Mi serve un aiuto in un passaggio che ora vi spiego

codice:
 VAR G1;M1;A1;G2;M2;A2: INTERO
NOME1; NOME2: STRINGA
ora mi vado a leggere il primo nome:

codice:
INIZIO 
 SCRIVI('DAMMI IL PRIMO NOME');
  LEGGI (NOME1);
poi mi leggo il giorno (G1) il mese (M1) e l'anno di nascita (A1) della prima persona!!

Arrivati qui vorrei sapere se mi scrivete cortesemente quali controlli devo effetuare sul giorno, sul mese e l'anno... in modo che se inserisco un giorno superiore al 31 mi da errore, che mi vede anche l'anno bisestile insomma tutti i controlli che posso effettuare... e se me li spiegate vi pregoooo!!!

L'algoritmo inseguito dovrebbe finire se ho capito bene la spiegazione in questo modo:

codice:
SE(G1+M1*100+A1*10000)>(G2+M2*100+A2*10000);
 ALLORA SCRIVI ('IL più giovane è', NOME1);
  ALTRIMENTI
   ('IL più giovane è', NOME2);