Question

Введите на языке Pascal.
Программа запрашивает пол (требуется ввести мужской или женский). Если введено мужской, то вывести на экран фразу "Вы - защитник Отечества", иначе - вывести фразу "Вам не повезло - женщины не служат в армии"

Answer 1

var s:string;
begin;
writeln('Ваш пол?');
readl(s);
if (s='мужской') then 
writeln('Вы-защитник отечества');
if (s='женский') then
writeln('Вам не повезло - женцины не служат в армии');
end.