var Age : integer; {Возраст} Sex : char; {Пол}| Stag: integer; {Стаж} Flag: boolean; {Логическое ДА или НЕТ}beginWriteLn('Age='); ReadLn(Age);WriteLn('Sex='); ReadLn (Sex);WriteLn('Stag='); ReadLn(Stag);Flag:=false;If (Sex='M') and (Age>=55) and (Stag>=15) then Flag:=true;if (Sex='F') and (Age>=50) and (Stag>=15) then Flag:=true;If (Flag=true) then WriteLn('НА ПЕНСИИ') else Writeln('ЕЩЕ РАБОТАЕТ');ReadLn;end.