If yyl<13 then begin

Yyl:=yyl+4; end

Else begin yyl:=6; end; end;



.