program hlikia;
uses crt;
var
ypol,tr_etos,tr_minas,tr_mera,gen_etos,gen_minas,gen_mera,il_eth,il_mines,il_imeres:integer;
syn_trexon,syn_gen,syn:LongInt;
BEGIN
write('Δώσε το τρέχων έτος, μήνα, ημέρα: ');
readln(tr_etos,tr_minas,tr_mera);
write('Δώσε το έτος, μήνα, ημέρα που γεννήθηκες: ');
readln(gen_etos,gen_minas,gen_mera);
syn_trexon:=(365*tr_etos)+(30*(tr_minas-1))+tr_mera;
syn_gen:=(365*gen_etos)+(30*(gen_minas-1))+gen_mera;
syn:=syn_trexon-syn_gen;
il_eth:=syn div 365;
ypol:=syn mod 365;
il_mines:=ypol div 30;
il_imeres:=ypol mod 30;
writeln('Ετών: ',il_eth,' Μηνών: ',il_mines,' Ημερών: ',il_imeres);
END.
Σύμφωνα με αυτό, είμαι:
Ετών: 17 Μηνών: 2 Ημερών: 16