Довідник : одиниці вимірювання, система числення, час у різних країнах

end;

if (currNum='8') then

begin

sResult:=sResult+C8;

if IsRange1019 then sResult:=sResult+suffNA

else sResult:=sResult+suffBL;

end;

if (currNum='9') then

begin

sResult:=sResult+C9;

if IsRange1019 then sResult:=sResult+suffNA

else sResult:=sResult+suffMZ+suffBL;

end;

end;

endMlx:='';

case i of

4:begin

if IsRange1019 then endMlx:=ov+suffBL else

if currNum='1' then endMlx:=suffBL else

if (currNum='2')or(currNum='3')or(currNum='4') then

endMlx:=aa+suffBL else endMlx:=ov+suffBL;

sResult:=sResult+'мiльярд'+endMlx;

end;

7:if IsMln then

begin