program DemSoLonHon15;

const
  MAX_SIZE = 100;

var
  mangSoThuc: array[1..MAX_SIZE] of real;
  n, i, dem: integer;

begin
  write('Nhap so luong phan tu (4 < n < 100): ');
  readln(n);

  while (n <= 4) or (n >= 100) do
  begin
    write('Nhap lai so luong phan tu: ');
    readln(n);
  end;

  // Nhap mang
  for i := 1 to n do
  begin
    write('Nhap phan tu thu ', i, ': ');
    readln(mangSoThuc[i]);
  end;

  // Hien thi mang
  writeln('Cac so da nhap:');
  for i := 1 to n do
    write(mangSoThuc[i]:8:2, ' ');

  // Dem so lon hon 15
  dem := 0;
  for i := 1 to n do
    if mangSoThuc[i] > 15 then
      dem := dem + 1;

  writeln;
  writeln('So luong so lon hon 15: ', dem);

  readln;
end.