program DemSoNguyenAmDuong;
var
  A: array[1..100] of integer; // khai báo mảng A có tối đa 100 phần tử
  N, dem_am, dem_duong, i: integer;
begin
  write('Nhap so phan tu cua day so: ');
  readln(N); // nhập số phần tử của dãy số
  // nhập từng phần tử của dãy số A
  for i := 1 to N do
  begin
    write('A[', i, ']= ');
    readln(A[i]);
    if A[i] < 0 then
      dem_am := dem_am + 1 // nếu phần tử i là số âm thì tăng biến đếm số nguyên âm lên 1
    else if A[i] > 0 then
      dem_duong := dem_duong + 1; // nếu phần tử i là số dương thì tăng biến đếm số nguyên dương lên 1
  end;
  // hiển thị kết quả
  writeln('So nguyen am trong day la: ', dem_am);
  writeln('So nguyen duong trong day la: ', dem_duong);
  readln;
end.