procedure ВыполняемаяПроцедура1; begin if not ФункцияПроверки1 then Exit; *** if not ФункцияПроверки2 then Exit; *** if not ФункцияПроверки3 then Exit; ***** ***** ***** end;