uses crt;
const n=26;
type massiv = array[1..n]of integer;
var m:massiv;
    i,p:integer;
{-----------------------------------------------------------------------------}
procedure DelElem(var m1:massiv;c:integer;k:integer);
var j,T:integer;
begin
for j:=k to c-1 do
  begin
   T:=m[j];
   m1[j]:=m1[j+1];
   m1[j+1]:=T;
  end;
end;
{-----------------------------------------------------------------------------}
begin
writeln('Ввод массива');
for i:=1 to n do read(m[i]);
p:=0;
for i:=1 to n do
   if m[i]>0 then
     begin
       DelElem(m,n,i);
       p:=p+1;
       writeln('Искомый массив');
       for i:=1 to n-p do write(m[i]:3);
       exit
     end
end.