uses crt;
var n,i:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for I:=1 TO N DO begin write('a[',i,']=');readln(a[i]); end;
   write('Cac so am trong day: ');
   for i:=1 to n do if a[i]<0 then write(a[i],' ');
readln
end.

program xuathien;

uses crt;

var A:array[1..10000] of integer;

      n,i,d:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');  readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

for i:=1 to n do

 begin

  write('Nhap phan u thu ',i,': ');

  readln(A[i]);

 end;

writeln('DAY VUA NHAP LA:');

for i:=1 to n do

 write(A[i],'   ');

writeln;

write('Cac phan tu am trong day la: ');

d:=0;

for i:=1 to n do

 if A[i]<0 then

  begin

   write(A[i],' ');

   d:=d+1;

 end;

if d=0 then write('Khong co');

readln

end.