viết chương trình nhập vào 1 mảng số nguyên có tối đa 200 phần tử đêm (dem) xem mảng có bao nhiều số âm in ra hình những phần tử âm trong mảng và in dem,

uses crt;
var d,i,n:longint; a:array[1..100000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,',]=');readln(A[i]);
      end;
   WRITELN('Cac phan tu am: ');
   for i:=1 to n do if a[i]<0 then begin write(a[i],' '); inc(d); end;
   writeln;
   writeln('Dem= ',d);
readln
end.

var a:array[1..200] of integer;n,i:integer;

procedure xl;

begin

d:=0;

   for i:=1 to n do

   if a[i]<0 then begin

inc(d);

   write(a[i],' ');

end;

if d >0 then 

   write('co 'd,' so am');

end;

begin

   assign(input,'bt.inp');reset(input);

   assign(output,'bt.out');rewrite(output);

   readln(n);

   for i:=1 to n do read(a[i]);

   xl;

   close(input);

   close(output);

end.