(define Sa (read)) (define Pa (read)) (define X (read)) (define Sb (read)) (define Pb (read)) (define X (read)) (display (if (> Pa Pb) Sa (if (= Pa Pb) -1 Sb))) (newline)