const n=15;
var a:array[1..n] of integer;
    i,j,t:integer;
begin
     Writeln('Massiv:');
      Writeln;
       Randomize;
       for i:=1 to n do
        begin
          a[i]:=Random(3)-1;
          Write(a[i]:4);
        end;
          Writeln; Writeln;
      t:=n;
      for i:=n downto 1 do
       if a[i]=0 then
        begin
          for j:=i to n-1 do
           a[j]:=a[j+1];
          a[n]:=0;
          Dec(t);
        end;
      if t=n
       then Writeln('Net nulevih elementov')
       else
        begin
          Writeln('Massiv posle sdviga:');
          Writeln;
          for i:=1 to n do
           Write(a[i]:4);
          Writeln;
        end;
      Readln;
end.