program Project8;
{$APPTYPE CONSOLE}
var m,n,p,k:integer;
begin
writeln('Vvedit chysla m,n,p');
readln(m,n,p);k:=0;
if m<0 then
k:=k+1;
if n<0 then
k:=k+1;
if p<0 then
k:=k+1;
writeln('E ',k,' chysla');
readln;
end.