#lang racket
(define (mod10 a){
       remainder a 10
       }
)

(define (div10 a){
     quotient a 10
                })

(define (max a b){
    if (> a b)a b
                  })

(define (min a b){
      if(< a b) a b
     }
 )

(define (print20 x)
    (cond
         [[= x 1][display " один "]]
         [[= x 2][display " два "]]
         [[= x 3][display " три "]]
         [[= x 4][display " четыре "]]
         [[= x 5][display " пять "]]
         [[= x 6][display " шесть "]]
         [[= x 7][display " семь "]]
         [[= x 8][display " восемь "]]
         [[= x 9][display " девять "]]
         [[= x 11][display " одиннадцать "]]
         [[= x 12][display " двенадцать "]]
         [[= x 13][display " тринадцать "]]
         [[= x 14][display " четырнадцать "]]
         [[= x 15][display " пятнадцать "]]
         [[= x 16][display " шестнадцать "]]
         [[= x 17][display " семнадцать "]]
         [[= x 18][display " восемнадцать "]]
         [[= x 19][display " девятнадцать "]]
         [[= x 10][display " десять "]]
         )
)

(define (thirdtTask x){
    cond [(< x 20)(print20 x)]

         [(= (div10 x) 2)(display "двадцать")]
         [(= (div10 x) 3)(display "тридацать")]
         [(= (div10 x) 4)(display "сорок")]
         [(= (div10 x) 5)(display "пятьдесят")]
         [(= (div10 x) 6)(display "шестьдесят")]
         [(= (div10 x) 7)(display "семьдесят ")]
         [(= (div10 x) 8)(display "восемьдесят ")]
         [(= (div10 x) 9)(display "девяноста " )]
         [(= x 100)(display "сто")]
     }

     (if (and (> (mod10 x) 0) (> x 19)) (print20 (mod10 x)) (display " "))
  )