program Project12; {$APPTYPE CONSOLE} var a,b,c,k:integer; begin writeln('Vvedit chysla a,b,c'); readln(a,b,c);k:=0; if a=-b then k:=k+1; if b=-c then k:=k+1; if c=-a then k:=k+1; writeln('E ',k,' par'); readln; end.