uses crt;

var a: array[1..100] of integer;

i,n,x,d,t: integer;

begin

t:=1;

clrscr;

write ('nhap n: ');  readln (n);

write ('nhap x: ');  readln (x);

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (A[i]);

if a[i]>x then d:=d+1;

end;

writeln ('trong day co ',d,' phan tu lon hon ',x);

write ('cac phan tu lon hon ',x,': ');

for i:=1 to n do if a[i]>x then begin write (a[i],'  '); t:=t*a[i]; end;

writeln ('tich la: ',t);

readln;

end.

program tinh_lonhon;

uses crt;

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

      n,i,d,x:integer;

      tich:longint;

begin

     clrscr;

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

     for i:=1 to n do

           begin

                write('Nhap so thu ',i,': ');  readln(A[i]);

           end;

     write('Nhap x: ');  readln(x);

     d:=0;  tich:=1;

     for i:=1 to n do

           if A[i]>x then

                begin

                     write(A[i],' ');

                     d:=d+1;

                     tich:=tich*A[i];

                end;

     if d=0 then write('Khong co so nao lon hon ',x)

     else

           begin

                writeln;

                writeln('Co ',d,' so lon hon ',x);

                writeln('Tich cac so do la: ',tich);

           end;

     readln;

end.