Написать программу на языке паскаль

var x: integer;

begin

x: =-1;

while x< =12 do

begin

writeln('x = ',x,'; y = ',(4*x*x*x*x+cos(x)-5)/(6*x*x*x+2));

x: =x+0,4;

end;

end.

1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.

ответ: 4 человека любят три вида спорта.

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

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