Có file:

program Hello;
uses crt;
var n,i,k,x,d:longint;
    f:text;
function nt(n:longint): boolean;
var i: longint;
begin
    if n < 2 then exit(false);
    for i:= 2 to trunc(sqrt(n)) do
        if n mod i = 0 then
            exit(false);
    exit(true);
end;
begin
    assign(f, 'Bai1.inp'); reset(f);
    readln(f, n, k);
    for i:= 1 to n do 
        begin
            read(f, x);
            if (x < k) and (nt(x) = true) then
                inc(d);
        end;
    close(f);
    assign(f, 'Bai1.out'); rewrite(f);
    writeln(f, d);
    close(f);

readln;

readln;
end.

======================================

Không file:

program Hello;
uses crt;
var n,i,k,x,d:longint;
function nt(n:longint): boolean;
var i: longint;
begin
    if n < 2 then exit(false);
    for i:= 2 to trunc(sqrt(n)) do
        if n mod i = 0 then
            exit(false);
    exit(true);
end;
begin
    
    readln(n, k);
    for i:= 1 to n do 
        begin
            read(x);
            if (x < k) and (nt(x) = true) then
                inc(d);
        end;
    writeln(d);
readln;
readln;
end.

var i,n,k,a,d:longint;
    f1,f2:text;
function nt(n:longint):boolean;
var i:longint;
begin
    if n < 2 then exit(false);
    if n < 4 then exit(true);
    if n mod 2 = 0 then exit(false);
    if n mod 3 = 0 then exit(false);
    i:=5;
    while i*i <= n do
        begin
            if n mod i = 0 then exit(false);
            if n mod (i+2) = 0 then exit(false);
            inc(i, 6);
        end;
    exit(true);
end;
begin
    assign(f1,'Bai1.inp');reset(f1);
    assign(f2,'bai1.out');rewrite(f2);
    readln(f1,n,k);
    for i:=1 to n do
        begin
            read(f1,a);
            if a < k then
                if nt(a) then
                    inc(d);
        end;
    writeln(f2,d);
    close(f1);close(f2);
end.