Một số n được gọi

là số phản nguyên tố nếu ước số của nó là nhiều nhất trong n số tự nhiên đầu tiên.

Cho số K (K<=10000). Hãy tìm tất cả

các số phản nguyên tố nhỏ hơn hoặc bằng

K.

(dùng pascal) giúp mình với

uses crt;
var A : array [1 .. 10000] of integer;
    i, j, K : integer;

function DS (x : integer) : integer;
begin
    DS := 0; K := x;
    if sqrt(x) = trunc(sqrt(x)) then DS := DS - 1;
    x := trunc(sqrt(x));
    for i := 1 to x do
        if K mod i = 0 then DS := DS + 2;
end;

begin
clrscr;
readln(K);
for j := 1 to K do A[j] := DS(j);
if K >= 1 then write(1);
for j := 2 to K do
    if A[j] > A[1] then
        begin
            write(j,' ');
            A[1] := A[j];
        end;
readln
end.