Nhập vào một dãy n số và nhập số nguyên X đếm xem có bao nhiêu số lớn hơn x và tính tích các số đó

uses crt;
var arr: array[1..100] of integer;
n, x, count, i, tich: integer;
begin
        clrscr;
        write(‘Hay nhap so nguyen n: ‘);
        readln(n);
        for i := 1 to n do
        begin
                write(‘Hay nhap phan tu arr[‘, i, ‘]: ‘);
                readln(arr[i]);
        end;
        write(‘Mang ban vua nhap la: ‘);
        for i := 1 to n do
                write(arr[i], ‘ ‘);
        writeln;
        write(‘Hay nhap so nguyen X: ‘);
        readln(x);
        tich := 1;
        for i := 1 to n do
        begin
                if arr[i] > x then
                begin
                        tich := tich * arr[i];
                        count := count + 1;
                end;
        end;
        writeln(‘Co ‘, count, ‘ so lon hon ‘, x, ‘.’);
        writeln(‘Tich cua cac so lon hon ‘, x ,’ la: ‘, tich);
        readln;
end.