If yyl>3 then begin

Yyl:=yyl-2; end else

Begin yyl:=17; end; end;

Chr(13):vvcd_dan(yyl); chr(27):QUITE; end; until false;



.