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

C4:string='чотир';

C5:string='п''ят';

C6:string='шіст';

C7:string='сім';

C8:string='вісім';

C9:string='дев''ят';

var

i:byte;

sAmount,sdInt,sdDec:string;

IsMln,IsTha{,IsDcm},IsRange1019:boolean;

currNum,endMlx,sResult:string;

begin

if (amount<0)or(amount>999999999999.99) then

begin

Result:='<<<< Помилкавдіапазоні >>>>';

Exit;

end ;

if amount=0 then

begin

Result:='Нуль';

Exit;

end ;

STR(Amount:16:2,sAmount);

sdInt:=Copy(sAmount,1,13);

sdDec:=Copy(sAmount,15,2);

IsMln:=false;

IsTha:=false;

IsRange1019:=false;

sResult:='';