const n=10;
var i,j,k,len:integer;
a:array [1..n] of integer;
begin
k:=0;
a[1]:=1; a[2]:=2; a[3]:=-3; a[4]:=4; a[5]:=-5;
a[6]:=6; a[7]:=7; a[8]:=-8; a[9]:=9; a[10]:=10;
len:=n;
i:=1;
while i<=len do begin
if a[i]>0 then inc(k);
if k=3 then begin
for j:=i to len-1 do a[j]:=a[j+1];
dec(len);
k:=0;
end;
inc(i);
end;
writeln ('Измененный массив');
for i:=1 to len do write (a[i],' ');
readln;
end.