//тут оголосити змінні, масиви, функції get та set, та CtulhuCall
//end

one[9] = { 'двадцять', 'тридцять', 'сорок', 'пятдесят', 'шесдесят', 'сімдесят', 'вісімдемят', 'дев_яносто', 'сто' };
middle[9] = {'одинадцять', 'дванадцять', 'тринадцять', 'чотирнадцять', 'п_ятнадцять', 'шістнадцять', 'сімнадцять', 'вісімнадцять', 'дев_ятнадцять' };
two[10] = {'один', 'два', 'три', 'чотири', 'п_ять', 'шість', 'сім', 'вісім', 'дев_ять', 'десять'};

get( current );


str = '';

if (current = 100)
{
  Set( 'сто' ); // =)
  Exit;
}

if ( current <= 10 ) 
{
  Set( str += two[ current ] );
} else
  if (current < 20)
  {
    Set( str += middle[ current ] );
  } else
    {
      oneX = current div 10;
      twoX = current mod 10;

      str += one[ oneX-2 ];
      str += ' ';
      str += two[ twoX-1 ];

      Set(str);
     }
CtulhuCall( 'Ftang!' );

StringGrid1.Cells[0,0] = DateToStr(DateTimePicker1.Date)