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