program GenderCheck;
vargender: string;
beginwrite('Введите ваш пол (мужской или женский): ');readln(gender);
if gender = 'мужской' thenwriteln('Вы - защитник Отечества')elsewriteln('Вам не повезло - женщины не служат в армии');end.
program GenderCheck;
var
gender: string;
begin
write('Введите ваш пол (мужской или женский): ');
readln(gender);
if gender = 'мужской' then
writeln('Вы - защитник Отечества')
else
writeln('Вам не повезло - женщины не служат в армии');
end.