program Project7;
{$APPTYPE CONSOLE}
var a:array[1..100] of integer;
i,k,n:integer;
begin
writeln('Vvedit kilkist elementiv v masyvi A[1..n]');
readln(n);
for i:=1 to n do begin
writeln('Vvedit ',i,' element masyvu A');readln(a[i]);end;
for i:=1 to n do begin
if a[i]<0 then k:=i;end;
for i:=k to n do a[i]:=a[i+1];n:=n-1;
for i:=1 to n do write(a[i],' ');
readln;
end.