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

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 ;

10:if IsTha then

begin

if IsRange1019 then endMlx:=suffBL else

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

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

endMlx:=ii+suffBL else endMlx:=suffBL;

sResult:=sResult+'тисяч'+endMlx;

end ;

end ;{case}

if i IN [4,7,10,13] then IsRange1019:=false;

end ;{IF }

end ;{FOR }

Result:= copy(sResult,0,length(sResult)-1);

if Result[length(Result)]='ь' then SetLength(Result, length(Result)-1);

end ;

end .