(DEFUN FINDFIGURE(F V C)
 (COND ((NULL C) '"Нет")
       ((AND (EQUAL F (CAAR C)) (= V (CADDAR C))) '"Да")
       (1 (FINDFIGURE F V (CDR C)))
 )
)
 
(PRINT (FINDFIGURE '"Пешка" 2 '(("Ферзь" d 1) ("Пешка" a 2) ("Пешка" b 2) ("Пешка" c 2) ("Слон" e 5))) )
(PRINT (FINDFIGURE '"Пешка" 3 '(("Ферзь" d 1) ("Пешка" a 2) ("Пешка" b 2) ("Пешка" c 2) ("Слон" e 5))) )
(PRINT (FINDFIGURE '"Слон" 5 '(("Ферзь" d 1) ("Пешка" a 2) ("Пешка" b 2) ("Пешка" c 2) ("Слон" e 5))) )