Введите на языке Pascal. Программа запрашивает пол (требуется ввести мужской или женский). Если введено мужской, то вывести на экран фразу "Вы - защитник Отечества", иначе - вывести фразу "Вам не повезло - женщины не служат в армии"
Var s:string; begin; writeln('Ваш пол?'); readl(s); if (s='мужской') then writeln('Вы-защитник отечества'); if (s='женский') then writeln('Вам не повезло - женцины не служат в армии'); end.