(define-struct computadores (marca modelo precio color))
(define computador1
  (make-computadores "asus" "2020" 1500000 "rojo" ))
(define computador2
  (make-computadores "hp" "2019" 2000000 "amarillo" ))
(define computador3
  (make-computadores "acer" "2018" 1200000 "azul" ))


(define(mayor-precio computadores)
  (cond
    [(>(computadores-precio computadores)(computadores-precio computador1))(computadores-precio computadores)]
    [(>(computadores-precio computadores)(computadores-precio computador2))(computadores-precio computadores)]
    [(>(computadores-precio computadores)(computadores-precio computador3))(computadores-precio computadores)]
    [else(error "nada nea, en la wena")]
    ))

(mayor-precio computador2)