program atelier_de_suflete_varianta_54;
type gen=array[naștere..moarte,naștere..moarte] din ani;
var timpul:gen;
adolescență,maturitate,pensionare:ani;
procedure primii_pași;
var liceu,facultate:ani;
mahmureală:perioadă;
begin
assign(mahmureală,'virginitate.IN');
reset(mahmureală);
read(mahmureală,adolescență,maturite);
for liceu:=1 to adolescență do
for facultate:=1 to maturitate do
read(mahmureală,timpul[liceu,facultate]);
close(mahmureală);
end;
function la_serviciu(dat_afară:ani):boolean; {verifică dacă sunt de folos societății}
var slujba1,slujba2:ani;
begin
la_serviciu:=false;
for slujba1:=1 to maturitate-1 do
for slujba2:=slujba1+1 to pensionare do
if timpul[slujba1,dat_afară]=timpul[slujba2,dat_afară] then begin
la_serviciu:=true;
succesul;
end;

end;
function sfârșit:ani;
var sicriu,pensia:(b)ani;
begin
pensia:=0;
for sicriu:=1 to pensia do
if la_serviciu(dat_afară) then inc(pensia);
sicriu:=sicriu*pensia;
sfârșit:=sicriu;
end;
begin
primii_pași;
writeln('și-astfel am trăit pe lume ', sfârșit:666);
end.