Program sdvig;
type
    Mas=array [0..99] of integer;
Procedure vvod(Var m:Mas; Var kolvo:integer);
          Var i:integer;
              begin
                   repeat
                         write('Vvedite kolvo elementov:');
                         readln(kolvo);
                   until kolvo>0;
                   for i:=1 to kolvo do
                       begin
                            write('element:');
                            read(m[i]);
                       end;
              end;
Procedure udalenie(Var m:Mas; Var element:integer;Var kolvo:integer);
Var i:integer;
   Begin
        for i:=element to kolvo do
            Begin
            m[i]:=m[i+1];
            End;
            kolvo:=kolvo-1; //не отображать нуль-элемент массива
            
   End;
var i,m,kolvo,element:integer;
    accept:string;
    n:mas;
Begin
     vvod(n,kolvo);
     repeat
     writeln('Vvedite Nomer elementa');
     readln(element);
     udalenie(n,element,kolvo);
       writeln('Massiv:');
       for i:=1 to kolvo do
           write(n[i],' ');
     writeln(' ');
     writeln('Udalit esho 1 element massiva?');
     writeln('Yes/no?');
     repeat
           read(accept);
     until (accept='no') or (accept='yes') ;
     until accept = 'no';
end.