if p(v25)then 
(if p(v25) then 
if v25='Английский 'or v25='Немецкий 'or v25='Французский 'or v25='Испанский '
or v25='Итальянский 'or v25='Польский 'or v25='Финский 'or v25='Шведский '
or v25='Китайский 'or v25='Японский 'or v25='Абхазский '
or v25='Азербайджанский 'or v25='Албанский 'or v25='Арабский '
or v25='Армянский 'or v25='Африкаанс 'or v25='Белорусский '
or v25='Болгарский 'or v25='Венгерский 'or v25='Вьетнамский '
or v25='Голландский 'or v25='Греческий 'or v25='Грузинский 'or v25='Датский '
or v25='Древнегреческий 'or v25='Иврит 'or v25='Идиш 'or v25='Индонезийский '
or v25='Ирландский 'or v25='Исландский 'or v25='Казахский 'or v25='Корейский '
or v25='Киргизский 'or v25='Латинский 'or v25='Латвийский 'or v25='Лингва '
or v25='Литовский 'or v25='Македонский 'or v25='Молдавский '
or v25='Монгольский 'or v25='Норвежский 'or v25='Персидский '
or v25='Португальский 'or v25='Румынский 'or v25='Русский '
or v25='Санскрит 'or v25='Сербскохорватский 'or v25='Словацкий '
or v25='Словенский 'or v25='Таджикский 'or v25='Татарский '
or v25='Туркменский 'or v25='Турецкий 'or v25='Узбекский 'or v25='Украинский '
or v25='Фламандский 'or v25='Хинди 'or v25='Чешский 'or v25='Шведский '
or v25='Эсперанто 'or v25='Эстонский 'then /'0' 
else /'1 Ошибка в поле 25 ' fi fi/)fi