Объяснение:
Как-то так, но я бы посоветовал перепроверить
var a:integer; b:char;
write('введите год рождения ребенка - '); readln(a);
write('введите пол(м/ж) - '); readln(b);
if (a < 2010) and (a > 2004) and (b = 'ж') then
write ('ребенок может участвовать в слете')
else write('ребенок не может участвовать в слете')
end.
Объяснение:
Как-то так, но я бы посоветовал перепроверить
var a:integer; b:char;
write('введите год рождения ребенка - '); readln(a);
write('введите пол(м/ж) - '); readln(b);
if (a < 2010) and (a > 2004) and (b = 'ж') then
write ('ребенок может участвовать в слете')
else write('ребенок не может участвовать в слете')
end.