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

interface

Const

UkrMonthString : array[1..12] of string[9] = (

'січня', 'лютого', 'березня', 'квiтня', 'травня',

'червня', 'липня', 'серпня', 'вересня', 'жовтня',

'листопада','грудня');

Function UkrRecognizeAmount(Amount:real):string;

implementation

Uses Sysutils;

Function UkrRecognizeAmount(Amount:real):string;

{Распознается число <= 999 999 999 999.99*}

const suffBL:string=' ';

suffDCT:string='дцять';

suffNA:string='надцять ';

suffDCM:string='десят';

suffMZ:string='ь';

sot:string='сот';

st:string='ст';

aa:string='а';

ee:string='и'; {e}

ii:string='і'; {и}

oo:string='о';

ov:string='ів';{ов}

C2:string='дв';

C3:string='тpи';