Напишите программу
Найти количество чисел кратных 9, но не кратных 5 в промежутке от 1 до 100.

я так понимаю это раздел 3 .10

про животных в каждом  множестве ?

множества:

животных на рисунке-10

птиц -5

животных, кот.умеют летать-6

птиц которые умеют летать-3

птиц которые не умеют летать -2

животных,которые не летают и не птицы-2

слева на рисунке :

в круге вне овала- пингвин , страус

на пересечении круга и овала -сова, попугай лебедь

в овале вне круга - шмель стрекоза, летучая мышь

в квадрате за пределами круга и  овала -змея . белка

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)

var x1,x2,x3,x4,x5: integer;

s: real;

begin

  read(x1,x2,x3,x4,x5);

  s: = (x1+x2+x3)/(x4+x5);

  if round(s)=s then writeln("celoe - "s);

end.

как я поняла амур надо соединить с теми множествами в которые слово входит.

в множество слов, множество названий рек,множество слов на букву а входит