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