Практика 2 Сухов

#lang racket

(displayln "Вычисление плозади кольца.")
(display "Ралиус кольца(см) => ")
(define r1 (read))
(display "Радиус отверстия (см) => ")
(define r2 (read))
(if (< r1 r2) (displayln "Ошибка! Радиус отверстия не может быть больше радиуса кольца") (- (* pi r1 r1) (* pi r2 r2)))

(newline)

(define output (lambda (str) (display num1)
                             (display str)
                             (display num2)))
(displayln "Введите в одной строке два целых числа:")
(define num1 (read))
(define num2 (read))
(if (= num1 num2) (output " равно ") (display ""))
(if (< num1 num2) (output " меньше ") (output " больше "))

(newline)

(displayln "Введите номер месяца(число от 1 до 12)")
(define month (read))
(if (> month 12) (display "Ошибка ввода данных") (display ""))
(if (< month 1) (display "Ошибка ввода данных") (display ""))
(case month
    [(1) (display "Январь")]
    [(2) (display "Февраль")]
    [(3) (display "Март")]
    [(4) (display "Апрель")]
    [(5) (display "Май")]
    [(6) (display "Июнь")]
    [(7) (display "Июль")]
    [(8) (display "Август")]
    [(9) (display "Сентябрь")]
    [(10) (display "Октябрь")]
    [(11) (display "Ноябрь")]
    [(12) (display "декабрь")])