racekt

; Úkol č. 1
(define (dve_posledni_cisla cislo) (modulo cislo 100))
(dve_posledni_cisla 8792)

; Úkol č. 3
(define (obsah_mezi_ctverci cislo cislob) (if (= cislo 0) "První čtverec nemůže mít delku strany 0." (if (= cislob 0) "Druhý čtverec nemůže mít délku strany 0." (if (< cislo cislob) (- (* cislob cislob) (* cislo cislo)) (- (* cislo cislo) (* cislob cislob))))))
(obsah_mezi_ctverci 10 5)