if s(v40^f):'*****' then '1 Нельзя удалять читателя - есть несданные книги' else '0' fi