program delete;
var
x : array[1..20] of integer;
i,l,j,k : integer;
n : integer;
total : integer;

begin
    total:=20;
    l:=0;
    for i := 1 to total do
    x[i] := random(100)+1;
    for i := 1 to total do
    writeln(x[i]);

write('Enter a number to delete: ');
readln(n);

repeat
    l:=l+1;
    until (x[l]=n);
                   k:=x[l];
             x[l]:=n;
            for j:=l to total do
                x[j+1]:=k;
                  k:=x[j+2];



         for i := 1 to total do
    writeln(x[i]);





readln;

end.