You should spend less time at pol. LISP code looks like this:
(define (groessere-quadratsumme x y z)
(define (quadratsumme a b) (+ (* a a) (* b b)))
(cond ((and (< x y) (< x z)) (quadratsumme y z))
((and (< y x) (< y z)) (quadratsumme x z))
((and (< z x) (< z y)) (quadratsumme x y))
((= x y) (cond ((< x z) (quadratsumme x z))
(else (quadratsumme x x))))
((= z y) (cond ((> x z) (quadratsumme x z))
(else (quadratsumme z z))))
Some people say LISP were an acronym for "Lots of irritating superfluuos parentheses". I don't think the parentheses in the image have a connection to pol.