сейчас 2019 год на слет молодых натуралистов в дк приглашаются девченки

Ответ:

Разъяснение:

Как-то так, но я бы порекомендовал перепроверить

var a:integer; b:char;

write('введите год рождения малыша - '); readln(a);

write('введите пол(м/ж) - '); readln(b);

if (a lt; 2010) and (a gt; 2004) and (b = 'ж') then

write ('ребенок может участвовать в слете')

else write('ребенок не может участвовать в слете')

end.