Phân tích:

Khi phân tích thừa số nguyên tố của $n$, ta có:

`n = p_1^(e1) \times p_2^(e2) \times p_3^(e3) \times ... \times p_k^(ek)`

Ta có `d(n)` là số lượng ước của `n`

`=> d(n) = (e1 + 1)(e2 + 1) \times ... \times (ek+1)`

Mà đề bài đã cho là số có ba ước hay `d(n) = 3 = (2 + 1) => n = p^2`

`=>` Số có `3` ước là bình phương của `1` số nguyên tố.

Chương trình:

uses crt, math;
var n, res, i: longint;
    p: array[0..1000000] of boolean;

procedure build_sieve;
var i, j: longint;
begin
    fillchar(p, sizeof(p), true);
    p[0]:=false; p[1]:=false;
    for i:=2 to 1000 do
        if p[i] then
            begin
                j:=i * i;
                while j <= 1000000 do
                    begin
                        p[j]:=false;
                        j:=j + i;
                    end;
            end;
end;

begin
clrscr;
    build_sieve();

    readln(n);
    res:=0;
    for i:=1 to trunc(sqrt(n)) do
        if p[i] then res:=max(res, i * i);
    writeln(res);
readln;
end.

var n,s,i:longint;

      a:string;

begin

readln(n);

for i:=1 to n do if n mod i<>0 then s:=s+1;

if s=2 then writeln('KO CO') else

begin

s:=0;

while s<=3 do

for i:=n downto 1 do

if n mod i=0 then begin s:=s+1; a[s]:=i; end;

end;

writeln(a[1],' ',a[2],' ',a[3]);

readln;

end.