Помогите пожалуйста решить задачу ПЛИЗ СРОЧНО ДАМ 30 БАЛОВ В трех седьмых классах 70 ребят. Из них 27 занимаются в драм кружке,
Помогите пожалуйста решить задачу ПЛИЗ СРОЧНО ДАМ 30 БАЛОВ В трех седьмых классах 70 ребят. Из них 27 занимаются в драм кружке, 32 поют в хоре,22 увлекаются спортом. В драм кружке -10 ребят из хора, в хоре -6 спортсменов, в драм кружке -8 спортсменов; 3 спортсмена посещают и драм кружок, и хор. Сколько ребят не поют в хоре, не увлекаются спортом и не занимаются в драм кружке? Сколько ребят занято только спортом?
{Возможно это можно более просто организовать, однако программа работает :) } Var a,b,ax,x: integer; flag: boolean; Begin Readln(a,b); ax:=a; If (a>=0) and (b>=0) then flag:=true else begin a:=abs(a); b:=abs(b); flag:=false; end; If (a=0) or (b=0) then write('0') else begin while b > 1 do begin a:=a+ax; dec(b); end; x:=a; if flag then write(x) else write(x-x*2); end; End.