Altro [PASCAL ALGORITMO] Aiutoo VI RPEGOOOO

[AngeloBoss]

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

VAR G1;M1;A1;G2;M2;A2: INTERO
NOME1; NOME2: STRINGA

ora mi vado a leggere il primo nome:

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:

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

 

[Utente cancellato 149834]

Allora intanto bisogna effetturare un controllo sul giorno,mese,anno in modo che non sia negativo o maggiore di un certo limite
Quindi magari potresti usare una selezione binaria così

if (giorno)>0 and(mese)>0 and(anno)>0 then
if (giorno)<=31 and (mese)<=12 then
writeln(giorno,mese,anno)
else
writeln('Impossibile');

Prova con questa sintassi in cui metti in una condizione più istruzioni.