programdd3

const n=10;
type ms=array [1..n] of real;

var a:ms;

procedure mass(mas:ms);
begin
  var v,i,num :integer;
  var exitn :boolean;
  var aa:ms;
  num:=1;
  for i:=1 to n do
  begin
  if mas[i] = 0 then num:=num+1;
  end;

  for  i:=1 to num do
  begin
  aa[i]:=0;
  end;

  for  i:= num to n do
  begin
  exitn:=false;
  v:=1;
  while exitn = false do
  begin
  if mas[v] <> 0 then
  begin
  aa[i]:=mas[v];
  mas[v]:=0;
  exitn:=true;
  end
  else v:=v+1;
  end;
  end;
  for i:=1 to n do
  begin
  write(aa[i],' ');
  end;
end;

begin
for var i:=1 to n do
begin
a[i]:=random(34)-13;
write(a[i],' ');
end;
writeln();
mass(a);
end.