program vtoraia;
const n=10;
var x,t:integer; a,b:array [1..n] of integer;
begin
t:=1;
 for x:=1 to n do
  a[x]:=random (100);
 for x:=1 to n do
   if a[x]<>0 then begin b[t]=a[x]; t:=t+1; end;
 for x:=1 to t do
  writeln (b[x],' ');
  readln
end.