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

end ;

if (currNum='7') then

begin

sResult:=sResult+C7;

if IsRange1019 then sResult:=sResult+suffNA

else sResult:=sResult+suffBL;

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 ;