có vô số

uses crt;
var l, r, cnt, i: longint;

function prime(n: longint): boolean;
var i: longint;
begin
    if n < 2 then exit(false);
    if n < 4 then exit(true);
    if (n mod 2 = 0) or (n mod 3 = 0) then exit(false);
    i:=5;
    while i <= trunc(sqrt(n)) do
        begin
            if(n mod i = 0) or (n mod (i + 2) = 0) then exit(false);
            inc(i, 6);
        end;
    exit(true);
end;

begin
clrscr;
    read(l, r);
    
    for i:=l to r do
        if prime(i) then
            begin
                write(i, ' ');
                inc(cnt);
            end;
    
    writeln(#13#10, cnt);
readln; readln;
end.