program L;
const n = 5;
var a, i, m, k :integer;
b: array [1..n] of boolean;
Y :Real;
begin
for i:=1 to n do
begin
readln (a);
if a=1 then b[i]:=true
else b[i]:=false;
end;
for i:=1 to n do
if b[i]= false then k:= k+1;
Writeln('Значение = ', k :2);
end.