Program naconecto;
const n=5;
var
A:array[1..n] of integer;
i,sum:integer;
BEGIN
sum:=0;
randomize;
for i:=1 to n do
  begin
    a[i]:=random(-5,5);
    if a[i]<>0 then
      begin
        sum:=sum+1;
      end
    else
      begin
        break;
      end;
  end;
writeln('cyMMa=',sum);
END.